function WinExecAndWait32

[PeterKiers]

Hallo Leute!

Ich bekomme eine Fehler:
[Error] Main.pas(57): Types of actual and formal var parameters must be identical

was mach ich falsch?

Code:

function WinExecAndWait32(FileName: string; Visibility: integer): integer;
var
  zAppName: array[0..512] of char;
  zCurDir : array[0..255] of char;
  WorkDir : string;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  StrPCopy(zAppName, FileName);
  GetDir(0, WorkDir);
  StrPCopy(zCurDir, WorkDir);
  FillChar(StartupInfo, Sizeof(StartupInfo), #0);
  StartupInfo.cb := Sizeof(StartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := Visibility;
  if not CreateProcess(nil,
                       zAppName, { pointer to command line string }
                       nil, { pointer to process security attributes }
                       nil, { pointer to thread security attributes }
                       false, { handle inheritance flag }
                       CREATE_NEW_CONSOLE or { creation flags }
                       NORMAL_PRIORITY_CLASS,
                       nil, { pointer to new environment block }
                       nil, { pointer to current directory name }
                       StartupInfo, { pointer to STARTUPINFO }
                       ProcessInfo) then { pointer to PROCESS_INF }
    Result := -1
  else
    begin
      WaitforSingleObject(ProcessInfo.hProcess, INFINITE);
      GetExitCodeProcess(ProcessInfo.hProcess, Result);       <------------------------Fehler
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  sBatchFileName: String;
begin
  sBatchFileName := 'c:\SAY.bat';
  if FileExists(SBatchFileName) then
  begin
    WinExecAndWait32(sBatchFileName, SW_HIDE);
  end;
end;

Peter Kiers

[bitsetter]

Hallo,

dein Result ist ein Integer- Typ der auch negativ sein kann und die Funktion GetExitCodeProcess() erwartet als 2. Parameter den Typ cardinal.
Wenn Result unbedingt -1 sein soll könnte man es auch so machen:

Delphi-Quellcode:

function WinExecAndWait32(FileName: string; Visibility: integer): Int64;
var
  zAppName: array[0..512] of char;
  zCurDir : array[0..255] of char;
  WorkDir : string;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  ExitCode: cardinal;
begin
  StrPCopy(zAppName, FileName);
  GetDir(0, WorkDir);
  StrPCopy(zCurDir, WorkDir);
  FillChar(StartupInfo, Sizeof(StartupInfo), #0);
  StartupInfo.cb := Sizeof(StartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := Visibility;
  if not CreateProcess(nil,
                       zAppName, { pointer to command line string }
                       nil, { pointer to process security attributes }
                       nil, { pointer to thread security attributes }
                       false, { handle inheritance flag }
                       CREATE_NEW_CONSOLE or { creation flags }
                       NORMAL_PRIORITY_CLASS,
                       nil, { pointer to new environment block }
                       nil, { pointer to current directory name }
                       StartupInfo, { pointer to STARTUPINFO }
                       ProcessInfo) then { pointer to PROCESS_INF }
    Result := -1
  else
    begin
      WaitforSingleObject(ProcessInfo.hProcess, INFINITE);
      GetExitCodeProcess(ProcessInfo.hProcess, ExitCode);
      Result:= ExitCode;
    end;
end;

Ansonsten muss deine Funktion eben eine Wert vom Typ Cardinal zurückgeben, der kann dann aber nicht negativ sein.

[PeterKiers]

Danke viel mals.

Peter Kiers

[nytaiceman]

Ich habe das Beispiel von bitsetter übernommen und die übergebene .exe wird soweit auch korrekt ausgeführt.

Nur, wie kann ich das Resultat (Den Rückgabewert oder ERRORLEVEL) der .exe auslesen?

Ich dachte eigentlich, das dies durch
Result:= ExitCode; Als Ergebnis der function zurückgemeldet wird, aber bei mir erhalte ich immer 0.

Danke schon mal für die Hilfe

[Kleiner Delphin]

In der Delphi Hilfe unter dem Wort HALT (Procedure) steht

Zitat:

Die Prozedur Halt bricht ein Programm ab.

Unit

System

Kategorie

Ablaufsteuerung

procedure Halt [ ( Exitcode: Integer) ];

Beschreibung

Die Prozedur Halt löst einen Programmabbruch aus und gibt die Steuerung an das Betriebssystem zurück. Um eine visuelle Delphi-Anwendung normal zu beenden, rufen Sie Application.Terminate auf. Exitcode ist ein optionaler Ausdruck, der den Exit-Code des Programms angibt.

Hoffe du meinst das.

Oder vlt tue ich gerade etwas falsch aber ich hab nochmal gegoogelt und fand

Oder du meinst das, das kann auf die beendigung warten

Zitat:

GetExitCodeProcess(ProcessInfo.hProcess, CardinalResult);

[nytaiceman]

Hallo und besten Dank für die schnelle Antwort.

"Halt" bezieht sich auf meine eigene Applikation. Dies würde also einen Exitcode bei der Beendigung meiner Applikation erzeugen.

Was ich benötige ist die Möglichkeit, eine fremde .exe zu starten und deren Exitcode zu erhalten resp. auszuwerten.

Hat sonstwer weitere Informationen?

[omata]

Zitat von nytaiceman:

Was ich benötige ist die Möglichkeit, eine fremde .exe zu starten und deren Exitcode zu erhalten resp. auszuwerten.

Genau das geht mit obiger Routine. Wenn du von der fremden exe immer nur den Wert Null als Rückgabewert erhälst, dann liegt das in der fremden exe.

Falls die fremde exe von dir ist und in Delphi geschrieben wurde, so kannst du den Rückgabewert über...
Exitcode:=1; zuweisen.