Originally Posted by
Bart B
Unit LCLType.
Hmmm opvallend: in de link van Anton staat dit:
Pascal Code:
// or a useful procedure:
procedure RunShellExecute(const prog,params:string);
begin
// ( Handle, nil/'open'/'edit'/'find'/'explore'/'print', // 'open' isn't always needed
// path+prog, params, working folder,
// 0=hide / 1=SW_SHOWNORMAL / 3=max / 7=min) // for SW_ constants : uses ... Windows ...
if ShellExecute(0,'open',PChar(prog),PChar(params),PChar(extractfilepath(prog)),1) >32 then; //success
// return values 0..32 are errors
end;
en daar zeggen ze in de comment (op regel 6) dat het in de Windows-unit staat,
net als bij Delphi.
Bookmarks