Registriert seit: 9. Sep 2003
Ort: Wildeshausen
295 Beiträge
Turbo Delphi für Win32
|
Re: CreateProcess bei Win98se: Datei nicht gefunden
20. Jun 2008, 17:22
Mal eben rauskopiert:
Delphi-Quellcode:
FillChar(lStartUpInfo,SizeOf(lStartUpInfo),#0);
lStartUpInfo.cb:=SizeOf(lStartUpInfo);
FillChar(lProcessInfo,SizeOf(lProcessInfo),#0);
//Konsole soll am Anfang unsichtbar sein und erst auf unserer Form angezeigt werden.
lStartUpInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_USEPOSITION;
lStartUpInfo.wShowWindow:= SW_NORMAL;
//Die neue Konsole gleich sichtbar oben links in den Clientbereich bringen.
lPoint.X:=0;
lPoint.Y:=0;
lPoint:=pnDosBasis.ClientToScreen(lPoint);
lStartUpInfo.dwX:=lPoint.X;
lStartUpInfo.dwY:=lPoint.Y;
lDateiname:=Dn0(dnrFosystem) + 'exe'; // ergibt in dem Fall Z:\Fosystem.exe und die Datei ist da
pnDosBasis.Visible:=True;
pnDosBasis.Caption:='"' + lDateiname + '" wird gestartet...';
sbxDos.Visible:=False;
Application.ProcessMessages;
DeleteFile(gUserPfad + 'FOS.Del');
lOk:=CreateProcess(PChar(lDateiname)
,PChar(lParameter)
,nil
,nil
,False
,0
,nil
,nil
,lStartUpInfo
,lProcessInfo
);
Wie geschrieben: Unter XP läuft das prima und CreateProcess ist für Win98se zugelassen.
Stefan
|
|
Zitat
|