hi,
also irgendwie komme ich da nicht weiter ....
Delphi-Quellcode:
PROCEDURE TForm1.Button1Click(Sender: TObject);
VAR
hFile : THandle;
x : DWORD;
px : pdword;
BEGIN
hFile := CreateFile(PChar('c:\windows\explorer.exe'), FILE_READ_DATA, 0,0, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0);
IF hFile = 0 THEN exit;
x := 0;
px := @x;
IF ImageEnumerateCertificates(hFile, CERT_SECTION_TYPE_ANY, px, NIL, 0) THEN
BEGIN
x:=px^;
ShowMessage(IntToStr(x));
END;
END;
Der Windows Explorer hat definitiv ein Zertifikat.
Was mache ich falsch ?
