Einzelnen Beitrag anzeigen

Benutzerbild von MacGuyver
MacGuyver

Registriert seit: 9. Sep 2003
Ort: Wildeshausen
295 Beiträge
 
Turbo Delphi für Win32
 
#3

Re: CreateProcess bei Win98se: Datei nicht gefunden

  Alt 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
Englisch eine Weltsprache? Zu kompliziert und der nahe Osten würde Englisch als Pflichtweltsprache nicht akzeptieren.
IDO wäre genau das Richtige: http://forum.idolinguo.de/index.php oder www.idolinguo.de
  Mit Zitat antworten Zitat