da bine asa e. eu am scoso de la wc si tu ai copiato dupa mine. nu mai continua discutia. esti mai bun si cu asta basta . Remote cmd l-ai facut din comenzile mele de mai sus. Port Scanneru - din sursa asta. DOWNLOAD Designu (butonu de la formu about de inchidere) - de la illusion Designu (imaginile form-urilor) - de la form-ul about de la programul Spy Remote In rest ai copiat foarte mult de la illusion: list , add ip , connect , disconnect , status (cu font verde , transparent). + comenzi: hide/show desktop , hide/show start button , hide/show taskbar , remote cmd + functii: procedure ArataMesaj(mesaj: string; titlu: string; tip: Integer); var eroare,informatie,exclamatie,intrebare,normal: boolean; begin if tip > 5 then exit else if tip < 1 then exit; eroare := false; informatie := false; exclamatie := false; normal := false; intrebare := false; {Setare tip mesaj} //begin if tip = 1 then eroare := true; if tip = 2 then informatie := true; if tip = 3 then exclamatie := true; if tip = 4 then normal := true; if tip = 5 then intrebare := true; {Setare tip mesaj} //end; if eroare = true then MessageBox(application.handle,Pchar(mesaj),Pchar(t itlu), +mb_OK +mb_ICONERROR) else if informatie = true then MessageBox(application.handle,Pchar(mesaj),Pchar(t itlu), +mb_OK +mb_ICONINFORMATION) else if exclamatie = true then MessageBox(application.handle,Pchar(mesaj),Pchar(t itlu), +mb_OK +mb_ICONEXCLAMATION) else if normal = true then MessageBox(application.handle,Pchar(mesaj),Pchar(t itlu), +mb_OK) else if intrebare = true then MessageBox(application.handle,Pchar(mesaj),Pchar(t itlu), +mb_OK +mb_ICONQUESTION); end; procedure CDRom(operation: string); begin if operation = 'open' then mciSendString('set cdaudio door open wait', nil, 0, handle) else if operation = 'close' then mciSendString('set cdaudio door closed wait', nil, 0, handle); end; procedure ShowDesktop(const YesNo: boolean); var h : HWND; begin h := FindWindow('ProgMan', nil); h := GetWindow(h, GW_CHILD); if YesNo = True then ShowWindow(h, SW_SHOW) else ShowWindow(h, SW_HIDE); end; procedure ShowStartButton(bValue: Boolean); var Tray, Child: HWND; C: array[0..127] of Char; S: string; begin Tray := FindWindow('Shell_TrayWnd', nil); Child := GetWindow(Tray, GW_CHILD); while Child <> 0 do begin if GetClassName(Child, C, SizeOf(C)) > 0 then begin S := StrPAS(C); if UpperCase(S) = 'BUTTON' then begin if bValue = True then ShowWindow(Child, 1) else ShowWindow(Child, 0); end; end; Child := GetWindow(Child, GW_HWNDNEXT); end; end; procedure TaskBar(show: Boolean); var t: HWND; begin t := FindWindow('Shell_TrayWnd',nil); if show = true then ShowWindow(t, SW_SHOW) else if show = false then ShowWindow(t, SW_HIDE); end; + multe altele