---

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

---

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

---

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
>
>

---

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

---

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
>
>

---

Hej Johnny

Din kode virker fint, når det gælder om at starte et program - MEN jeg kan ikke få lpCommandLine til
at virke på det kaldte program.

Min function ser således ud:
----------------------------------------
Function PFURunExecutable( ExeFile, Parameters: String; TimeOut:LongWord): Boolean;
Var process: TProcessInformation;
info: TStartupInfo;
Begin
Result:=True;
FillChar(process, sizeof(TProcessInformation), 0);
FillChar(info, sizeof(TStartupInfo), 0);
info.cb := sizeof(TStartupInfo);

if CreateProcess( Pchar(ExeFile), PChar(Parameters), nil, nil, false, NORMAL_PRIORITY_CLASS, nil,
nil,info, process) <> False
then begin
WaitForSingleObject(process.hProcess, TimeOut);
CloseHandle(process.hProcess);
end else
Result:=False;
End;

- OG den kaldes med følgende:
---------------------------------------------
PFURunExecutable(KundeProgramPath+'Program.exe','$RT$'+IntToStr(Handle), INFINITE);

Kommandolinien ( '$RT$'+IntToStr(Handle) ) virker fint på ParamStr, når ShellExecute bruges.
Kan du give nogen forklaring på den manglende virkning af lpCommandLine ????

På forhånd tak
PL

---

se tråden

"se om andet program kører" fra d 24/10

mvh

--
Thomas Riedel, LogiHouse
"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
>
>

---

Hej Thomas

Tak for tipset. Jeg vil prøve dette

PL

"Thomas Riedel" <thr@image.danmark> skrev i en meddelelse
news:aLxO7.96$9p.27577@news010.worldonline.dk...
> se tråden
>
> "se om andet program kører" fra d 24/10
>
> mvh
>
> --
> Thomas Riedel, LogiHouse
> "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
> >
> >
>
>