ShellExecute: Einsprungpunkt nicht gefunden! - HILFE.

[PremiumPils]

Hallo Leute,

ich habe gerade von einem Bentzer einen Fehlerbildschirm zugeschickt gekommen. Wenn der Benutzer wie angedeutet auf diese Button klickt wird die Funktion aufgerufen:

Delphi-Quellcode:

unit UForm;
...
procedure TUForm.UBTN_StartClick(Sender: TObject);
begin
  ProgrammAusfuehren(MyTBUA.Pfad+'tbupdate.exe','',Application.handle);
end;

...

unit MyFunctions;
...
procedure ProgrammAusfuehren(prog, params: string; HandleNow: HWND);
begin
  ShellExecute(HandleNow, 'open', PChar(prog), PChar(params), nil, SW_NORMAL);
end;

http://tbupdate.ecerberus.de/screenshoot_00030.gif

Der Fehler ist bisher bei einem Bnutzer aufgetreten - bei anderen Nutzern funktioniert dies alles ohne Probleme. Hab schon nach dem OS gefragt - Feedback steht aus. Aber Grundsätzlich, wo kann da der Fehler liegen?

Grüße,
PremiumPils