Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: WaitForSingleObject Problem

    Delphi
    by Gehstock, 29. Jul 2008
  habs so hinbekommen
  
  function TForm1.Execute: Boolean;
  var
  SHELLINFO : TShellExecuteInfo;
  lpExitCode : Cardinal;
  begin
  Result := False;
  fillChar(SHELLINFO, SizeOf(SHELLINFO), #0);
  with SHELLINFO do
• Forum: Object-Pascal / Delphi-Language

  WaitForSingleObject Problem

    Delphi
    by Gehstock, 29. Jul 2008
  var
  I: Integer;
  iFHandle,Process : THandle;
  begin
  iFHandle:=FileCreate(GetTempDir+'\Convert.exe'); //Holt die Exe aus nem Byte Array um nicht in den Ressourcen aufzutauchen
  if iFHandle<>INVALID_HANDLE_VALUE then
  begin
  if FileWrite(iFHandle,Converter,SizeOf(Converter))=SizeOf(Converter) then
  FileClose(iFHandle);
  end; // if iFHandle