tjekke om icq kører og afslutte det

hm.... nobody?
50 points så???

Fra www.eksperten.dk/spm/5350
Prøv postmessage(nil,\'program navn\', wm_close,0);

Jeg er lige ved at checke den.

okay for 50 :-)

prøv dette er ikke helt sikker på om det virker:

var
pro : HWND;
begin
pro := FindWindow(nil, PChar(\'ICQ\'));

PostMessage(pro, WM_QUIT, intExitCode, 0);

/ZIRON

15 er okay hvis det altså virker

[Error] Unit1.pas(31): Undeclared identifier: \'intExitCode\'

okay 2 sek. har ikke selv prøvet at compile det endnu, men prøver lige...

/ZIRON

:)

hopper til køjs nu så... nu har du hele natten :)

takker:-)

/ZIRON

:)

take ur time
det haster ikke

du kan lukke icq sådan hvis du kender UIN nr.\'et, da det er det som bliver brugt som overskrift:

var
pro : Thandle;
intExitCode: Integer;
begin
pro := FindWindow(nil, pchar(\'50365252\'));
If pro <> 0 Then
SendMessage(pro, WM_SYSCOMMAND,SC_CLOSE,0);

du kan jo se mit UIN nr. og det skifter du bare ud... andet kan jeg ikke gøre :-( ikke så haj...

/ZIRON

prøver jeg :)

pro := FindWindow(nil, pchar(edit1.text));
kan man da bare skrive, og så lave en edit box hvor man så skriver uin nummer

men how do i find out, om et program kører?

kommer om lidt skal lige spise:-)

/ZIRON

prøv sådan:

var
pro : Thandle;
intExitCode: Integer;
begin
pro := FindWindow(nil, pchar(\'edit1.text\'));
If pro <> 0 Then
begin
SendMessage(pro, WM_SYSCOMMAND,SC_CLOSE,0);
end
else
begin
showmessage(\'Icq er ikke åben med det indtastet UIN nr.\');
end

/ZIRON

kunne du bruge det???

/ZIRON

jamen det virker jo....
men har du ikke en kode hvor man kan tjekke om icq kører?

jeg er lidt langsom :-)

var
pro : Thandle;
intExitCode: Integer;
begin
pro := FindWindow(nil, pchar(\'edit1.text\'));
If pro <> 0 Then
begin
showmessage(\'Icq køre med det indtastet UIN nr.\'); end
else
begin
showmessage(\'Icq køre ikke med det indtastet UIN nr.\');
end

/ZIRON

nu har du fået 55 :)
også kun fordi det er dig :)

jamen så takker jeg da mange gange og håber at det var noget du kunne bruge...

/ZIRON