hi foxi,
zu Deinem zweiten Problem: ich verstehe nicht ganz, was in die Zeile
GetExe(ExtractFileExt(OpenDialog1.FileName));
die GetExe mit der FielExtension machen soll. Ich nutze zum Starten externer Dateien mit der zugehörigen Application ShellExecute und habe mir dafür eine kleine Funktion geschrieben:
Delphi-Quellcode:
// in Abschnitt interface
function StartFile (Hdl: word; FileStr: String; Par: String ): integer;
// in Abschnitt implementation
function StartFile (Hdl: word; FileStr: string; Par: string ): integer;
var
i : integer;
path : string;
vErr : string;
begin
FileStr := FileStr + chr(0);
path := '' + chr(0);
try
i := shellexecute(Hdl, nil, @FileStr[1], @Par[1], @path[1], SW_SHOW);
except
vErr := 'Problem beim Starten der externen Datei';
MessageDlg(vErr, mtInformation, [mbOk], 0);
i:= -1;
end;
result:= i;
end;
Dein Aufruf sähe dann so aus:
Delphi-Quellcode:
procedure ...
var
vFileName :
string;
begin
if FileExists(Table1.FieldbyName('
BMP').AsString)
then
Form4.Show
else begin
vFileName := Table1.FieldByName('
Datei').AsString;
If FileExists(vFileName)
then
StartFile(
Handle, vFileName, '
');
end;
end;
Nochmals viel Erfolg, harrybo