Delphi-ს მამებო დახმაერბა მჭირდება...., HELPPPPPPPLZZZ.

ვინმემ თუ იცით Delphi-ში mous-ის კოორდინატების გაგება
როგორ შეიძლება დაპოსტეთთთთ.
HEELPPPPPPPLZZZZZZZZZZ.

White][Rabbit
მაგას არც მამა ჭირდება და არც დედა.

ობიექტზე გააკეთე mousemove event handler და მერე მის event არგუმენტ-ს აქვს ეგ ყველაფერი.

OnMouseMove

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);

ეს არ წავა ?

ვნახოთ თუ წავა.
კიდევ ერთი რაღაცა მაინტერესებს, ვთქვათ ქსელში არის ჩართული რამოდენიმე კომპი და
მინდა ერთიდან გადავწერო მეორეში რაღაც ფაილი, მაგრამ ქსელში კომპს რომ დაუკავშირდე პაროლი
გჭირდება, როგორ შეიძლება სასურველი ფაილი გადავწერო ერთიდან მეორეზე თუ პაროლი იცი

es naxe :

TOptions = record
Path: string;
username:string;
pass: string;
end;



function ConnectNetwork(const opt: TOptions): boolean;
var
lpNetRes: TNetResource;
err: DWord;
pass, us: Pchar;
begin

lpNetRes.lpLocalName := nil;
lpNetRes.lpRemoteName := PChar(opt.FPath);
lpNetRes.lpProvider := nil;
lpNetRes.dwType := RESOURCETYPE_ANY;
pass := pchar(opt.pass);
us := pchar(opt.username);
err := WNetAddConnection2(lpNetRes, pass, us, 0);
Result := true;
if err <> NO_ERROR then
begin
messagedlg(syserrormessage(err), MtError, [mbok], 0);
Result := false;
end;
end;