Einzelnen Beitrag anzeigen

Pro_RJ

Registriert seit: 16. Apr 2008
146 Beiträge
 
#3

AW: CreateProcess mit String BDS2009

  Alt 16. Okt 2011, 22:29
Danke für die Antwort,
ich habe es mal entsprechend geändert:

Delphi-Quellcode:
//const PFad = 'C:\Test1\Tulips.jpg';
var StartupInfo: TStartupInfo;
    ProcessInfo: TProcessInformation;
    Pfad : String;

    aa : PCHar;
begin
  FillChar(StartupInfo, SizeOf(StartupInfo), #0);
  FillChar(ProcessInfo,SizeOf(TProcessInformation),0);
  StartupInfo.cb := SizeOf(StartupInfo);
  StartupInfo.dwFlags := STARTF_USESIZE;
  StartupInfo.wShowWindow := SHOW_OPENWINDOW;

  PFad := 'C:\Test1\Tulips.jpg';
  //aa := PCHar(Pfad);
  // Erzeugen
  //===============================================
  if CreateProcess(NIL ,
                   PChar(Pfad + ''),
// @pfad,
                   nil,
                   nil,
                   False,
                   SW_HIDE,
// SW_NORMAL,
// CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
                   nil,
                   nil,
                   StartupInfo,
                   ProcessInfo) then
  begin
  end
  else
  Begin
    Showmessage(SysErrorMessage(GetLastError))

  End;
end;
Allerdings bekomme ich immernoch die Fehlermeldung "%1 ist keine gültige Win32 Anwendung"
  Mit Zitat antworten Zitat