[Delphi5] Hoe een scherm te verbergen?

[Aetje]

code:

Procedure RunFile(psInstring:String);
var PCharArr:PChar;
    sInfo:StartupInfo;
    pInfo:Process_Information;
begin
  PCharArr := AllocMem(SizeOf(Char)*(Length(psInstring)+7));
  try
    {This is a startupinfo for CreateProcess}
    FillChar (sInfo, SizeOf (sInfo), 0);
    sInfo.cb := SizeOf (sInfo);
    CreateProcess(nil,StrPCopy(PCharArr,('Start '+psInString)),nil,nil,FALSE,0,nil,nil,sInfo,pInfo);
  finally
    freemem(PCharArr);
  end;
end;

Probleem: Start.exe genereert een console schermpje dat irritant een momentje naar voren komt. Ik wil dat scherm verbergen (minimaliseren of gewoon helemaal verbergen). Ik heb het geprobeerd met de StartupInfo structure, dat had echter weinig effect. Heeft hier iemand een tip voor me?

[ArmEagle]

Als je de caption van de window weet kun je
FindWindow(nil, '[caption]')
gebruiken. Anders kun je ook
GetForegroundWindow()
gebruiken
en daarna, met de zojuist verkregen handle:
PostMessage(h, WM_CLOSE, 0, 0);

Hieronder nog een voorbeeld stukje:

code:

var
   h: HWND;
begin
   if doCloseOnDeactivate then
   begin
    h:= GetForegroundWindow();
    if (h <> FindWindow(nil, 'IExplorer')) then
    begin
       PostMessage(h, WM_CLOSE, 0, 0);
       doCloseOnDeactivate:= false;
       StatusBar.SimpleText:= 'Active window deactivated';
    end
    else
       setFocus();
   end;

[Aetje]

Bedankt voor de tip, maar dit is niet de oplossing. Het consolescherm verschijnt, en verdwijnt. Start runt slechts zeer kort. Is er wellicht een andere manier dan Start.exe aanroepen, waarmee bestanden van ELK bekend type geopend kunnen worden? (Start File.txt bijvoorbeeld opent notepad. Start Infile.mdb start Access). "Explorer InFile.mdb" werkte voor geen meter... Help?

PS

The WM_CLOSE message is sent as a signal that a window or an application should terminate.

Niet wat ik wilde ... Beter is DestroyWindow( Window: HWND );

[ArmEagle]

hmm, sorry niet goed genoeg gelezen...

werkt WinExec() niet?
Anders meot er geloof ik idd nog een andere procedure zijn.

Trouwens, als je het goed programmeerd, wordt dat venster zo snel gesloten, dat je hem helemaal niet ziet. (Moet geloof ik wel in een aparte thread, anders loopt het niet lekker)

[Aetje]

Hmz, dat gebeurt dus niet. CreateProcess roept Start aan, start creert het console window en start vervolgens het bestand (en evt. de geassocieerde app). Daarna gaat het window weer weg (Start is afgelopen.)
Ik wil dat het window geeneens gecreerd wordt. Heeft iemand niet een idee of dat met CreateProcess ook kan? (Gewoon verborgen opstarten).

En WinExec() is een procedure die alleen vanwege compatibiliteit nog bestaat. Die gebruik ik dus niet. (Windows 3.1 remnant )

[elevator]

Op vrijdag 15 maart 2002 12:25 schreef Aetje het volgende:
En WinExec() is een procedure die alleen vanwege compatibiliteit nog bestaat. Die gebruik ik dus niet. (Windows 3.1 remnant )

:-)

StartupInfo invullen, eg:

code:

  with StartupInfo do
  begin
    cb := SizeOf(TStartupInfo);
    dwFlags := startf_UseShowWindow;
    wShowWindow := SW_HIDE;
  end; { with }

"start.exe" gebruiken is niet de mooiste manier, kijk eens naar ShellExecute() en ShellExecuteEx()

[Aetje]

Toffie! Werkt als een tiet!

Ik bypass the ShellExec liever... D'r zit een mogelijkheid in Win om daar nog iets voor te krijgen. Sommige worms maken daar gebruik van. CreateProcess kent dat niet (geloof ik).

[elevator]

Op vrijdag 15 maart 2002 15:26 schreef Aetje het volgende:
Toffie! Werkt als een tiet!

Ik bypass the ShellExec liever... D'r zit een mogelijkheid in Win om daar nog iets voor te krijgen. Sommige worms maken daar gebruik van. CreateProcess kent dat niet (geloof ik).

ik vermoed dat start niet meer doet dan ShellExecute aanroepen. ShellExecute is ook gewoon een API call die bijv. gebruikt wordt als je print vanuit explorer e.d.

[Guillome]

Pcies, met shellexecute kan dat allemala ook.
www.av.com of file.txt of wat dan ook.
Werkt erg goed