Die Version klappt auch nicht.
Ich habe einfach die verlinkte
Unit eingebunden und folgendes in meinem Code geändert:
Delphi-Quellcode:
procedure TForm1.Image3Click(Sender: TObject);
begin
FormStyle := fsNormal;
ShellExecuteAndWait(Application.Handle, 'open', PChar(config.Strings[0]), nil, PChar(ExtractFileDir(config.Strings[0])), 0, False);
FormStyle := fsStayOnTop;
SetFocus;
end;
Es passiert genau dasselbe wie bei meinen zahlreichen anderen Versuchen: Das Programm öffnet sich und, egal ob ich etwas in dem Programm mache oder nicht, nach ca. 5 sek. kommt wieder mein Programm in den Vordergrund.