Strona g│≤wna

 

1. Jak napisac odpowiednik unixowych PS i KILL ? 2. Jak pobrac liste wszystkich okien w systemie ? 3. Jak pobrac text okna ? 4. Jak odpalic nowy watek ? 5. Jak czytac pamiec procesu ? 6. Co to jest HDC [Device Context] ? 7. Jak rysowac po dowolnym oknie ? 8. Jak rysowac po pulpicie ? 9. Jak otrzymac obraz dowolnego okna ? 10. Jak ukryc proces w systemie ? 11. Jak zmieniac rozmiar i polozenie okien myszka ? 12. Jak okreslic dostepne w systemie fonty ? 13. Jak pisac programy sieciowe ? 14. Jak skonstruowac wlasny pakiet IP [SOCKET_RAW] ? 15. Jak uzyskac informacje o systemie ? 16. Jak uruchomic program przy starcie systemu ? 17. Jak odpalic inny proces ? 18. Jak odpalic domyslna przegladarke lub klienta poczty ?

{BEGIN OF PS.PAS}
unit PS;

interface
uses
windows,sysutils,tlhelp32,classes;

function MyPS:TStringList;
function MyKILL(pid:integer):boolean;

implementation

{A oto PS}
function MyPS:TStringList;
var
  sHandle:thandle;pEntry:tprocessentry32;
begin
  sHandle:=createtoolhelp32snapshot(TH32CS_SNAPPROCESS,0);
  pEntry.dwSize:=sizeof(pEntry);
  Result:=TStringList.create;
  if integer(process32first(sHandle,pEntry))<>0 then 
  repeat
    Result.Append(inttostr(pEntry.th32ProcessID)+':  '+pEntry.szExeFile);
  until integer(process32next(sHandle,pEntry))=0;
  closehandle(sHandle);
end;
{Koniec PS'a}

{A oto KILL}
function MyKILL(pid:integer):boolean;
var
  sHandle:thandle;
begin
  try
    sHandle:=openprocess(PROCESS_TERMINATE,bool(0),pid);
    if integer(terminateprocess(sHandle,0))=0 then result:=false else result:=true;
  except end;
end;
{Koniec KILL'a}

end.
{END OF PS.PAS}

function EnumChildProc(Hw:Hwnd;P:pointer):boolean;stdcall;
var
winname,cname:array[0..144]of char;
begin
result:=true;
getwindowtext(hw,winname,144);
getclassname(hw,cname,144);
List.Append('POTOMEK:  TEXT:'+strpas(winname)+'   KLASA: '+strpas(cname));
end;

function EnumWindowProc(Hw:HWnd;P:Pointer):boolean;stdcall;
var
winname,cname:array[0..144]of char;
begin
result:=true;
getwindowtext(hw,winname,144);
getclassname(hw,cname,144);
List.Append('OKNO:     TEXT:'+strpas(winname)+'   KLASA: '+strpas(cname));
enumchildwindows(hw,@enumchildproc,0);
end;

procedure WkurzajUsera;
begin
	repeat beep;sleep(1000);until false;
end;

//i podczepiamy nasza procedurke jako watek

CreateThread(nil,0,@WkurzajUsera,nil,0,x);

(x:integer)

win32.hlp:
HANDLE CreateThread(

    LPSECURITY_ATTRIBUTES  lpThreadAttributes,	// address of thread security attributes  
    DWORD  dwStackSize,	// initial thread stack size, in bytes 
    LPTHREAD_START_ROUTINE  lpStartAddress,	// address of thread function 
    LPVOID  lpParameter,	// argument for new thread 
    DWORD  dwCreationFlags,	// creation flags 
    LPDWORD  lpThreadId 	// address of returned thread identifier 
   );

function ReadProcMem(var path,buf:PChar;length:integer):integer;
var ProcInf:TProcessInformation; //tutaj otrzymamy identyfikatory procesu i watku glownego
    StartInf:TStartupInfo; //tutaj nieistotne
begin
fillchar(StartInf,sizeof(StartInf),0); //ta struktuta nie bedzie uzywana
fillchar(Buf,length,0); //czyscimy bufor
Result:=0;
CreateProcess(path,nil,nil,nil,false,0,nil,nil,StartInf,ProcInf); //tworzymy nowy proces
OpenProcess(PROCESS_VM_READ,false,ProcInf.dwProcessId); //otwieramy go z flaga do odczytu
ReadProcessMemory(ProcInf.hProcess,nil,Buf,length,result); //czytamy length bajtow z pamieci
TerminateProcess(ProcInf.hProcess,0); //wykanczmy proces z flaga wyjscia 0
end;

Canvas.HAndle:=GetWindowDC(znane_okno.handle); 
{tutaj mozmy rysowac na Canvas}
ReleaseDC(znane_okno.handle,canvas.handle);//pozniej musimy jeszcze zwolnic uchwyt

function Control2Bitmap(Obj:TWinControl):TBitmap;
begin
  Result:=Tbitmap.create;
  Result.Height:=Obj.Height;
  Result.Width:=Obj.Width;
  Result.Canvas.Handle:=CreateDC(nil,nil,nil,nil);
  Result.canvas.lock;
  Obj.PaintTo(Result.Canvas.Handle,0,0);
  result.canvas.unlock;
  DeleteDC(result.canvas.handle);
end;

function registerserviceprocess(pid,blah:longint):boolean;
stdcall;external 'kernel32.dll' name 'RegisterServiceProcess';

no i teraz tylko:

registerserviceprocess(0,1);

funkcja zwrotna ma postac: 

function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;
  FontType: Integer; Data: Pointer): Integer; stdcall;
begin
  Form1.memo1.lines.append(LogFont.lfFaceName); //tutaj np. dodajemy nazwy fontow do listy
  Result := 1; // jesli chcemy przerwac iteracje musimy jako result podac 0
end;

procedure TForm1.Button1Click(Sender: TObject);
var DC:HDC;
begin
DC:=GetDC(0); //device context pulpitu, jesli chcemy fonty drukarki podaemy printer.handle
enumfonts(DC,nil,@EnumFontsProc,nil); //podajemy adres naszej funkcji
end;

SSOCK,CSOCK:integer;

procedure make_listen_socket;
var
addr,taddr:tsockaddrin;
sock,size:integer;
begin
  fillchar(addr,sizeof(addr),0);
  fillchar(taddr,sizeof(taddr),0);
  fillchar(maddr,sizeof(maddr),0);

  SOCK:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP); // jesli socket=-1 to blad!

  addr.sin_family:=AF_INET;
  addr.sin_addr.s_addr:=htonl(INADDR_ANY);
  addr.sin_port:=htons(666);  //przypisujemy gniazdku port lokalny
  bind(SOCK,addr,sizeof(addr)); //jesli bind<>0 to blad !
  listen(SOCK,5); //jesli listen<>0 to blad !

  repeat
     sleep(1000);
     size:=sizeof(taddr);
     CSOCK:=accept(SOCK,@taddr,@size);
  until csock>0; //az ktos sie z nami polaczy
end;

function connect_to_destination(DESTINATION_HOST:string;DESTINATION_PORT:integer):integer;
var
	addr:tsockaddrin;
	he:phostent;
	mode:integer;
begin

  SSOCK:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
  fillchar(addr,sizeof(addr),0);
  
  addr.sin_family:=AF_INET;
  addr.sin_addr.s_addr:=inet_addr(@DESTINATION_HOST[1]); //moze byc pchar(DESTINATION_HOST)
  addr.sin_port:=htons(DESTINATION_PORT);

  he:=gethostbyname(@DESTINATION_HOST[1]); //wywolujemy resolver
  if he<>nil then move(he^.h_addr_list^^, addr.sin_addr.s_addr, he^.h_length)
  
  result:=connect(SSOCK,addr,sizeof(addr));
end;


//ta funkcja wysle nam cos przez gniazdko
function say(gniazdko:integer;co:string):integer;
begin
result:=send(gniazdko,co[1],length(co),0);
end;

//ta funkcja odbierze nam cos przez gniazdko do bufora 'gdzie' ('ile' bajtow)
function hear(gniazdko:integer;var gdzie:string;ile:integer):integer;
begin
result:=recv(gniazdko,gdzie[1],ile,0);
end;