Registriert seit: 16. Apr 2008
146 Beiträge
|
AW: CreateProcess mit String BDS2009
16. Okt 2011, 23: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"
|
|
Zitat
|