Hej Johnny
Tak for tilsendte, det var squ' lækkert, da jeg tidligere har brugt FindWindow, men ikke attid har
haft styr på det.
PL
"JOHNNY CARLSEN" <johnny.carlsen@get2net.dk> skrev i en meddelelse
news:3QwO7.114$Dc2.4081@news.get2net.dk...
> Så prøv denne.
>
> Function RunExecutable( Path, Parameters: String ): Boolean;
> Var process: TProcessInformation;
> info: TStartupInfo;
> Begin
> RunExecutable:=True;
> FillChar(process, sizeof(TProcessInformation), 0);
> FillChar(info, sizeof(TStartupInfo), 0);
> info.cb := sizeof(TStartupInfo);
>
> if CreateProcess( Pchar(dir), PChar(Par), nil,
> nil, false, NORMAL_PRIORITY_CLASS, nil, nil,
> info, process) <> False then begin
>
> WaitForSingleObject(process.hProcess, INFINITE);
>
> CloseHandle(process.hProcess);
> end else RunExecutable:=False;
> End;
>
> "P.L." <jessie-peter@get2net.dk> wrote in message
> news:3c0a639b$0$31414$edfadb0f@dspool01.news.tele.dk...
> > Hej Johnny
> >
> > Tak for dit svar, men det kan desværre ikke bruges.
> > 1. WinExec er vidst fra 16 bits applicationer
> > 2. GetModuleUsage her helt ukendt at D4.
> >
> > PL
> >
> >
> >
> > "JOHNNY CARLSEN" <johnny.carlsen@get2net.dk> skrev i en meddelelse
> > news:kp9O7.91$PY.2937@news.get2net.dk...
> > > Her lidt hjælp.
> > >
> > > Var
> > > Handle : Word;
> > > begin
> > > Handle := WinExec('Appname.exe',SW_ShowNormal);
> > > While GetModuleUsage(Handle) > 0 do
> > > Application.Processmessages;
> > > end;
> > >
> > >
> > > "P.L." <jessie-peter@get2net.dk> wrote in message
> > > news:3c08c0fd$0$264$edfadb0f@dspool01.news.tele.dk...
> > > > Hej NG
> > > >
> > > > Er der en af jer, som ved hvorledes man kan finde ud af om en
> application,
> > > som man har startet fra
> > > > sit program vha. ShellExecute, fortsat 'kører' ???
> > > >
> > > > Mvh
> > > > PL
> > > >
> > > >
> > >
> > >
> > > ---
> > > Outgoing mail is certified Virus Free.
> > > Checked by AVG anti-virus system (
http://www.grisoft.com).
> > > Version: 6.0.303 / Virus Database: 164 - Release Date: 24-11-2001
> > >
> > >
> >
> >
>
>
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (
http://www.grisoft.com).
> Version: 6.0.303 / Virus Database: 164 - Release Date: 24-11-2001
>
>