FAQ DelphiConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
// Modification -> 02/2005  
// Updated to create the application form as visible (by removing WS_POPUP)  
// but it is created transparent with 1 transparent pixel in the top  
// left corner of the screen, which means top left corner of the  
// application in front off for seamless applications under citrix;  
  
FHandle := CreateWindowEx(WS_EX_APPWINDOW or WS_EX_TRANSPARENT  
, WindowClass.lpszClassName, PChar(FTitle)  
, WS_CAPTION or WS_CLIPSIBLINGS or WS_SYSMENU or WS_MINIMIZEBOX  
  // or WS_POPUP  
  //, GetSystemMetrics(SM_CXSCREEN) div 2  
  //, GetSystemMetrics(SM_CYSCREEN) div 2, 0, 0  
, -199, -19, 200, 20  
, 0, 0  
, HInstance  
, nil);

ObjSrvEnumerator := (UneFerme.Servers._NewEnum) as IEnumVariant;

unServeur := IUnknown(ArrayVariant) as MetaFrameServer;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var 
  UneFerme         : MetaFrameFarm; 
  unServeur        : MetaFrameServer; 
  i                : Integer; 
  
  ObjSrvEnumerator : IEnumVariant; 
  ArrayVariant     : OleVariant; 
  NumberItem       : LongWord; 
  
begin 
  ListBox1.Clear; 
  try 
    UneFerme := CoMetaFrameFarm.Create; 
    uneFerme.Initialize(MetaFrameWinFarmObject ); 
    ListBox1.AddItem('Citrix Farme : '+ UneFerme.FarmName, Self  ); 
  
    ObjSrvEnumerator := (UneFerme.Servers._NewEnum) as IEnumVariant; 
    while (ObjSrvEnumerator.Next(1, ArrayVariant, NumberItem) = S_OK) do begin 
      unServeur := IUnknown(ArrayVariant) as MetaFrameServer ; 
      ListBox1.AddItem('Serveur : '+ unServeur.ServerName , Self ); 
    end; 
  finally 
    uneFerme := nil; 
  end; 
end;

Erreur Win32. Code : 1400.. Handle de fenêtre non valide.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Interface  
...  
  maForm=class(TForm)  
  ...  
  private  
  ...  
   procedure WMMouseActivate(var Message: TWMMouseActivate); message WM_MOUSEACTIVATE;  
...  
Implementation  
...  
procedure maForm.WMMouseActivate(var Message: TWMMouseActivate);  
begin  
 Message.Result := MA_ACTIVATE;  
 if (maForm.Handle <> GetForegroundWindow) and (maForm.Handle <> Handle) and (maForm.Handle <> 0) then  
  begin  
   SetForegroundWindow(maForm.Handle);  
   Windows.SetFocus(maForm.Handle);  
  end;  
end;  
...