ExecProgram

du skal i hvertfald have \'\' rundt om clock.exe

ExecProgram(\'clock.exe\', 1);

Men om det så virker det ved jeg ikke lige

1) Du kan bruge winexec.

Winexec (\'program.exe\',sw_normal);

sw_normal er konstant, som angiver at du vil åbne det i normal størrelse.

2) Under project / options finder du funktioner til at skifte ikonet.

Brug ShellExecute !

ShellExecute(Handle,\'open\',PChar(\'notepad.exe\'),pchar(\'\'),pchar(\'\'),SW_SHOWNORMAL);

Husk og tilføj ShellAPI under Uses !

Snowball

eller kig her

http://www.eksperten.dk/spm/32335

Du ændrer ikonet på din .exe fil ved at gå ind i Project -> Options -> Fanebladet Application. Der kan du ændre dit ikon !

Snowball

Du SKAL gøre som SnowBall siger, DET er måden at gøre det på og det virker altid, og det giver dig den rigtige \"process setup\", jeg har oplevet at programmer ikke kørte når jeg startede dem med en CreateProcess men at det virkede fint når jeg brugte ShellExecute.

/Martin

Ellers hvis du vil exekvere en exe fil og vente til den er færdig så skal du bruge den følgende funktion :



function ExecAndWait(Filename : String; Parameter: string = \'\'; nCmdShow: integer = sw_normal): longword;
var
    zAppName: array[0..max_path] of char;
    zParameter: array[0..max_path] of char;
    zCurDir: array[0..max_path] of char;
    StartupInfo: TStartupInfo;
    ProcessInfo: TProcessInformation;
begin
  StrPCopy(zAppName,FileName);
  StrPCopy(zParameter,Parameter);
  StrPCopy(zCurDir,GetCurrentDir());
  FillChar(StartupInfo,Sizeof(StartupInfo),#0);
  StartupInfo.cb:=Sizeof(StartupInfo);
  StartupInfo.dwFlags:=STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow:=nCmdShow;
  if not CreateProcess(zAppName,zParameter,nil,nil,false,CREATE_NEW_CONSOLE or  NORMAL_PRIORITY_CLASS,nil,nil,StartupInfo,ProcessInfo) then
    Result:=0
    else
    begin
      WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
      GetExitCodeProcess(ProcessInfo.hProcess,Result);
    end;
end;


Den kan kaldes således :

procedure TForm1.Button1Click(Sender: TObject);
var
  FileName : TFileName;
begin
  FileName := \'C:\\C++\\Skellet\\Release\\Skellet.exe\';
  ExecAndWait(FileName,\'\', sw_normal);
  Caption :=  FileName + \' done executing\';
end;


Jens B

Jens B. >> Det virker bare ikke ALTID, af u forklarlige årsager.

Baaah Hest !!! Kan du komme med et eksemple hvor det ikke virker ?

Jens B

Jeg har oplevet at skulle køre et program fra noget script jeg havde lavet, og det kostede faktisk en overarb. lørdag fordi det ikke ville køre det skide program, men gerne alle mulige andre, så lavede jeg min createprocess om til ShellExecute og vupti så virkede det, hvorfor ved jeg ikke, og hvilket program det var jeg skulle køre kan jeg ikke huske, muligvis var det noget med en inf fil der skulle \"DBL-Klikes\" på.

/Martin

ja ja. godr med dig Martin det er noget du finder på forat få opmærksomhed :-)

Vi har allesammen gennemskuet dig :-)

Beklager meget, men det er den skindbarlige sandhed :-)

He he... du er glad for din funktion hva\' borisholt :D

http://www.eksperten.dk/spm/54389

Den virker jo .....

det gør den ....

godt endda