Bonjour,
Je veux utiliser cette fonction pour mettre une appli en avant plan :
procedure TForm1.Devant;
Var Proc,Nous:Integer;
begin
Proc:=GetWindowThreadProcessId(GetForeGroundWindow);
Nous:=GetCurrentThreadID;
If Proc<>Nous Then
Begin
AttachThreadInput(Nous,Proc,True);
SetForeGroundWindow(Handle);
AttachThreadInput(Nous,Proc,False);
Application.BringToFront;
EndElse
Begin
SetForeGroundWindow(Handle);
End;
end;
Mais le probleme c'est que le deboggeur me met [Error] Unit1.pas(89): Undeclared identifier: 'Handle'
Pourriez vous m'expliquer comment resoudre ce probleme.
merci d'avance pour votre aide !