Köra en fil

Testa detta:

uses   

WinTypes, ShellAPI;  

procedure OpenObject( sObjectPath : string  ); 
begin   
ShellExecute( 0, Nil, PChar( sObjectPath ),  Nil, Nil, SW_NORMAL );
end;  

begin   
OpenObject( 'c:\my_docs\report.txt' ); 
end.

Detta öppnar programmet som är associerat med filtillägget, i detta fallet Anteckningar. Hoppas det var så du menade.

Jag vill köra ett program, som tar en fil som argument,

ex. så här skulle jag skriva i kommandotolken:

fo.exe filnamnet

Detta fungerar inte...

Jag tror att du måste skriva in hela sökvägen till filen du vill skicka med som argument. Har du testat det?

foo.exe C:\<sökväg>\filnamnet

Fungerar inte, dessutom blir det ju inte bra om jag måte skriva hela sökvägen...

Så här skickar du in parametrar till shellexecute:

var MyParameters: string;

MyParameters:='C:\SomeTextFile.txt';
ShellExecute(Handle, 'open', 'NotePad.exe', PChar(MyParameters), '',
SW_NORMAL);

Om du har flera parametrar separerar du dem med mellanslag.

mvh Tony