| antp |
pour exécuter un programme et pouvoir le fermer par après, j'utiliserais CreateProcess (peut-être ShellExecute aussi, mais je ne suis pas sûr que tu puisses récupérer le programme après pour le fermer).
pour savoir si on est connecté ou pour simplement forcer la connexion/déconnexion, j'ai justement ça qui traînait sous la main, donc je le livre tel quel :
Code :
- uses wininet;
- Procedure SetGlobalOffline(fGoOffline:Boolean);
- var
- ci: INTERNET_CONNECTED_INFO;
- Begin
- if fGoOffline then
- begin
- ci.dwConnectedState := INTERNET_STATE_DISCONNECTED_BY_USER;
- ci.dwFlags := ISO_FORCE_DISCONNECTED;
- end
- else
- ci.dwConnectedState := INTERNET_STATE_CONNECTED;
- InternetSetOption(nil,INTERNET_OPTION_CONNECTED_STATE, @ci, sizeof(ci));
- End;
- //Get Offline state;
- function IsGlobalOffline:Boolean;
- var
- P : ^Longint;
- size Word;
- Begin
- result:=false;
- Size:=4;
- GetMem(P,Size);
- if InternetQueryOption(nil,INTERNET_OPTION_CONNECTED_STATE,Pointer(p),Size) then
- Result:= P^ and INTERNET_STATE_DISCONNECTED_BY_USER<>0;
- Freemem(P,4);
- End;
|
|
