/ 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
Lukning af et andet program?
Fra : Marius Thomsen


Dato : 15-03-02 20:40

Hej NG

Er der nogen der kan hjælpe med, hvordan man afslutter et andet program fra
et program ?
Det lyder vist for kryptisk så jeg prøver at omformulere: Program1 skal
afslutte program2
Jeg tror det har være her i nyhedgruppen før, men jeg kan ikke finde det.

Med venlig hilsen

Marius Thomsen



 
 
MHA (16-03-2002)
Kommentar
Fra : MHA


Dato : 16-03-02 02:30

In article <3c924d11$0$92525$edfadb0f@dspool01.news.tele.dk>,
marius@thomsen.mail.dk says...
> Hej NG
>
> Er der nogen der kan hjælpe med, hvordan man afslutter et andet program fra
> et program ?

Først skal du have fat i et handle på det program du ønsker at afslutte.
Hertil bruger du FindWindow. Dernæst sender du en WM_CLOSE besked til
denne handle med SendMessage.


Marius Thomsen (16-03-2002)
Kommentar
Fra : Marius Thomsen


Dato : 16-03-02 20:59

Hej NG

Er der nogen der kan brygge et hurtigt eksempel ?
F.eks. lukke en kørende notepad.exe

MVH Marius Thomsen



MHA (16-03-2002)
Kommentar
Fra : MHA


Dato : 16-03-02 21:40

In article <3c93a2e3$0$60210$edfadb0f@dspool01.news.tele.dk>,
marius@thomsen.mail.dk says...
> Hej NG
>
> Er der nogen der kan brygge et hurtigt eksempel ?
> F.eks. lukke en kørende notepad.exe
>

procedure TForm.ButtonClick(Sender: TObject);
var
hNotepad: THandle;
begin
hNotepad := FindWindow('Notepad', nil);
if hNotepad <> 0 then
SendMessage(hNotepad, WM_CLOSE, 0, 0);
end;

Marius Thomsen (16-03-2002)
Kommentar
Fra : Marius Thomsen


Dato : 16-03-02 21:43


"Marius Thomsen" <marius@thomsen.mail.dk> skrev i en meddelelse
news:3c924d11$0$92525$edfadb0f@dspool01.news.tele.dk...
> Hej NG
>
> Er der nogen der kan hjælpe med, hvordan man afslutter et andet program
fra
> et program ?
> Det lyder vist for kryptisk så jeg prøver at omformulere: Program1 skal
> afslutte program2
> Jeg tror det har være her i nyhedgruppen før, men jeg kan ikke finde det.
>
> Med venlig hilsen
>
> Marius Thomsen
>

Nu har jeg fundet ud af det :


procedure TForm1.Button1Click(Sender: TObject);
var
h: HWND;
begin
h := FindWindow(nil, 'ikke-navngivet - Notesblok');
if h <> 0 then PostMessage(h, WM_CLOSE, 0, 0);
end;


MVH Marius Thomsen



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