Componente demo
Estou tentando fazer um demo de um componente meu e queria que ele só funcionasse com a IDE do Delphi aberta. Como fazer isso?
Mestrella
Curtidas 0
Respostas
Jackson Gomes
12/05/2004
Para Delphi 5:
function DelphiIsRunning : boolean;
var
H1, H2, H3, H4 : Hwnd;
const
A1 : array[0..12] of char = ´TApplication´#0;
A2 : array[0..15] of char = ´TAlignPalette´0;
A3 : array[0..18] of char = ´TPropertyInspector´0;
A4 : array[0..11] of char = ´TAppBuilder´0;
T1 : array[0..8] of char = ´Delphi 5´0;
begin
H1 := FindWindow(A1, T1);
H2 := FindWindow(A2, nil);
H3 := FindWindow(A3, nil);
H4 := FindWindow(A4, nil);
Result := (H1 <> 0) and (H2 <> 0) and
(H3 <> 0) and (H4 <> 0);
end;
function DelphiIsRunning : boolean;
var
H1, H2, H3, H4 : Hwnd;
const
A1 : array[0..12] of char = ´TApplication´#0;
A2 : array[0..15] of char = ´TAlignPalette´0;
A3 : array[0..18] of char = ´TPropertyInspector´0;
A4 : array[0..11] of char = ´TAppBuilder´0;
T1 : array[0..8] of char = ´Delphi 5´0;
begin
H1 := FindWindow(A1, T1);
H2 := FindWindow(A2, nil);
H3 := FindWindow(A3, nil);
H4 := FindWindow(A4, nil);
Result := (H1 <> 0) and (H2 <> 0) and
(H3 <> 0) and (H4 <> 0);
end;
GOSTEI 0