Hallo auf einigen Systemen - was genau die Ursache weis ich nicht deswegen schreibe ich hier - hab ich mit meinem Programm ein Problem *.lnk Dateien zu öffnen bei mir zB.: XP Pro mit SP2 und XP PRO SP1 geht es OHNE Probleme.
Bei einem Nutzer - der XP Pro SP1 nutzt geht es nicht statt das die Verknüpfung ordentlich geöffnet wird, erscheint das - was Ihr auf dem Bild sehen könnt...
Bin ratlos.
zum öffnen der *.lnk benutzte ich
Delphi-Quellcode:
procedure ExecuteProgramm(const PFileName: string);
var
SEInfo: TShellExecuteInfo;
ExitCode: DWORD;
ExecuteFile: string;
begin
ExecuteFile := '"' + PFileName + '"';
FillChar(SEInfo, SizeOf(SEInfo), 0);
SEInfo.cbSize := SizeOf(TShellExecuteInfo);
with SEInfo do
begin
fMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Application.Handle;
lpFile := PChar(ExecuteFile);
nShow := SW_SHOWNORMAL;
end;
if ShellExecuteEx(@SEInfo) then
begin
repeat
Application.ProcessMessages;
GetExitCodeProcess(SEInfo.hProcess, ExitCode);
until (ExitCode <> STILL_ACTIVE) or
Application.Terminated;
end else
begin
Application.MessageBox('Error - konnte Datei nicht öffnen', 'Hinweis', MB_SYSTEMMODAL);
end;
end;
Hab es aber auch schon mit ShellExecute und WinExec versucht ;(