externe Datei mit ShellExecute aufrufen funktioniert nicht

[thomas2009]

Hallo

ich rufe die externe Dateien mit diesem Code auf:

Delphi-Quellcode:

var
link : String;
begin
      try
link :=WB1.OleObject.Document.GetElementByID('link').Value;
// in Textfeld in HTML Code steht der Pfad als relativ :excel\test.xls
ShellExecute(Application.Handle,'open',PChar(link),Nil,Nil,SW_NORMAL);

Bei mir funktioniert wunderbar (egal ob der Pfad als relativ oder als absolut. Aber bei meinem Freund funktioniert leider nicht immer

muss ich den Pafd als Absolut aufrufen?
ShellExecute(Application.Handle,'open',PChar(ExtractFilePath(ParamStr(0))+link),Nil,Nil,SW_NORMAL);