Einzelnen Beitrag anzeigen

Benutzerbild von Aphton
Aphton

Registriert seit: 31. Mai 2009
1.198 Beiträge
 
Turbo Delphi für Win32
 
#3

AW: CreateProcess() und "magnify.exe"

  Alt 4. Jan 2013, 00:54
Probiers öfters aus.
Bei mir geschieht es auch manchmal, dass es 4-5 mal hintereinander problemlos klappt.
:S

Edit:
Hab endlich etwas gefunden

Lösung
Delphi-Quellcode:
    if Buttons[7] then
    begin
      if not magnifyActive then
      begin
        // TODO 1: This doesnt work properly
        FillChar(magnifyProcess, SizeOf(magnifyProcess), 0);
        FillChar(StartupInfo, SizeOf(StartupInfo), 0);
        StartupInfo.cb := SizeOf(StartupInfo);
        StartupInfo.wShowWindow := SW_SHOW;
        StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
        Wow64RedirectionDisabled := Wow64DisableWow64FsRedirection(Wow64Value);
        magnifyActive := CreateProcess(pWideChar(SysDir + '\magnify.exe'),
          NIL, NIL, NIL, True, 0, NIL, NIL, StartupInfo, magnifyProcess);
        if Wow64RedirectionDisabled then
          Wow64RevertWow64FsRedirection(Wow64Value);
      end;
    end else
      if magnifyActive then
        magnifyActive := not TerminateProcess(magnifyProcess.hProcess, 0);
Ich hatte es im Hinterkopf, dass es da evt. zu Problemen kommen kann, wenn man aus 32 Bit 64 Bit Anwendungen startet.. alles im Hinterkopf..
ist mir nur nicht eingefallen =/

Jedenfalls, danke für die Beteiligung

Gute Nacht
das Erkennen beginnt, wenn der Erkennende vom zu Erkennenden Abstand nimmt
MfG

Geändert von Aphton ( 4. Jan 2013 um 01:15 Uhr)
  Mit Zitat antworten Zitat