Robimy to za pomocą takiej małej funkcji:
function IsDelphiRunning : boolean;
begin
Result:= FindWindow('TAppBuilder', nil) > 0;
end;
Robimy to za pomocą takiej małej funkcji:
function IsDelphiRunning : boolean;
begin
Result:= FindWindow('TAppBuilder', nil) > 0;
end;
Result := (FindWindow('TAppBuilder', nil) > 0);
bez ) na koncu nawet mozna :-P
juz poprawiam :P
hmm... tylko, że to znajduje również bcb, bo znajduje jakiekolwiek okienko z klasy.