/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Jeg ønsker at finde ud af, om en applicati~
Fra : P.L.


Dato : 01-12-01 12:36

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



 
 
JOHNNY CARLSEN (01-12-2001)
Kommentar
Fra : JOHNNY CARLSEN


Dato : 01-12-01 19:30

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



P.L. (02-12-2001)
Kommentar
Fra : P.L.


Dato : 02-12-01 18:23

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



JOHNNY CARLSEN (02-12-2001)
Kommentar
Fra : JOHNNY CARLSEN


Dato : 02-12-01 22:09

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



P.L. (04-12-2001)
Kommentar
Fra : P.L.


Dato : 04-12-01 00:51

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



P.L. (04-12-2001)
Kommentar
Fra : P.L.


Dato : 04-12-01 02:17

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





Thomas Riedel (02-12-2001)
Kommentar
Fra : Thomas Riedel


Dato : 02-12-01 23:18

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



P.L. (03-12-2001)
Kommentar
Fra : P.L.


Dato : 03-12-01 01:11

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



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste