Öppna ett annat program.

Jag har fösökt med allt.

Jag kan inte se vad det är för fel därför postar jag koden här och hoppas på att ni kan hjälpa mig. Jag använder Delphi 7.

Koden:

function ExecuteFile(const FileName, Params, DefaultDir: string ;
ShowCmd: Integer): THandle;
var
zFileName, zParams, zDir: array[0..79] of Char;

begin
Result := ShellExecute(Application.MainForm.Handle, nil,
StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
StrPCopy(zDir, DefaultDir), ShowCmd);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
executeFile('test.exe','text_file','c:\test\', SW_SHOWNORMAL);
end;

edit: det var inget. är slö.

Det fungerar inte med en absolut sökväg till .exe-filen heller?