1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

procedure TFRM_Main.TMR_MainTimerTimer(Sender: TObject);
var
  // VAriablen für Prozesse und PID's
  pdwResult  : PDWORD; // für den Buffer
  pdwWork    : PDWORD; // um dem Buffer verarbeiten zu können
  dwCountIn  : DWORD;  // Grösse des Buffers in Byte
  dwCountOut : DWORD;  // Zurückgelieferte Anzahl Byte
  i, vPID: integer;

begin
  dwCountOut := 0;    // Sicherheitshalber initialisieren, muss nicht sein
  dwCountIn  := 1024; // Willkürlich gewählt, genügt für 256 Prozesse
  pdwResult  := AllocMem(dwCountIn);
  try
    if not EnumProcesses(pdwResult,dwCountIn,dwCountOut) then begin
      ShowMessage(SysErrorMessage(GetLastError));
    end else begin
      pdwWork := pdwResult; // zur Verarbeitung übergeben, damit FreeMem funktioniert
      MMO_Processes.Clear;



      for i := 1 to (dwCountOut shr 2) do begin // shr 2 = / 4, da 4 Byte je DWORD
        // Prozess Id ausgeben
        if (GetProcessName(pdwWork^) <> '') then
         begin
           vPID:=pdwWork^;
           MMO_Processes.Lines.Add(GetProcessName(vPID));
           MMO_Processes.Lines.Add(IntToStr(vPID);
         end;
        // auf nächste addressieren (inc erhöht automatisch um 4, da es ein typisierter Pointer ist
        inc(pdwWork);
      end;

  MMO_Processes.Lines.SaveToFile(FRM_Settings.EDT_ExecuteDir.Text+'\processes.htm');

    end;
  finally
    FreeMem(pdwResult,dwCountIn);
  end;

end;                    

1:
2:
3:
4:

[...]
    SHGetFileInfo(PChar(Datei), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON or SHGFI_LARGEICON or SHGFI_TYPENAME);
    IMG.Picture.Icon.Handle := FileInfo.hIcon;
[...]                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Button1Click(Sender: TObject);
var
  hModule, hIcon: THandle;
begin
  //hModule := LoadLibrary(PChar(Paramstr(0)));
  //hIcon := LoadIcon(hModule, MAKEINTRESOURCE('MAINICON'));
  hModule := LoadLibrary(PChar('c:\winnt\notepad.exe'));
  hIcon := LoadIcon(hModule, MAKEINTRESOURCE(1));
  DrawIcon(Canvas.Handle, 0, 0, hIcon);
end;