Hallo,
bei mir funktioniert es so:
Delphi-Quellcode:
var
sei: TShellExecuteInfo;
begin
FillChar(sei, SizeOf(sei), 0);
with sei do
begin
cbSize := SizeOf(sei);
lpFile := PChar(ParamStr(0));
lpVerb := 'properties';
fMask := SEE_MASK_INVOKEIDLIST;
end;
if not ShellExecuteEx(@sei) then
ShowMessage(SysErrorMessage(GetLastError));
end;
Vielleicht gibt die Fehlermeldung einen Hinweis darauf, was schief läuft?
Freundliche Grüße