Mam taki problemik (siedze juz 3 dzien spiac po 4 godziny dziennie) i juz moze nie mam sily myslec [glowa]
Wrzucam w Timera Procedurke sprawdzającą jakie programy sa uruchomione.
function EnumWnd(hWd : HWND; P : Pointer) : Boolean; stdcall;
var
WndName,
ClsName : array[0..128] of char;
handle:hwnd;
begin
{ procedura ta ma za zadanie pobrac liste otwartych w systemie programow i okien}
Result := True;
{ te dwie procedury pobieraja nazwe okna aplikacji}
GetWindowText(hWd, WndName, 128);
if Pos('Explorer',(WndName))0 then begin ShowWindow(Handle,SW_Show);end; //TUTAJ JEST PROBLEM
end;
procedure TFGlowna.Timer1Timer(Sender: TObject);
begin
EnumWindows(@EnumWnd, 0);
end;
i w zamiarze ma to dokonac sprawdzenia czy ktos uruchomil Internet Explorera, jezeli tak, wtedy ma pokazac moj programik i zamknac IE.
Hmmmm i juzzzz dostaje szalu, jak by ktos znal rozwiazanie mojego problemu, a szczegolnie nie jestem pewny czy taki zapis (w miejscu oznaczonym) jest dobry.
Prosze o pomoc i wybaczenie.
//Prosze nie wyzywac mnie od ludzi nie myslacych ale po prostu juz przez ostatnie 3 dni moj mozg wykonal nadmiar pracy :( [glowa]