A probléma megoldásához a Windows unit néhány függvényét hívjuk segítségül.
Minden egyes futó alkalmazás ablakának van egy azonosítója a rendszerben. Form-unk saját azonosítóját a Handle property értéke adja meg.
Ha egy másik ablak azonosítóját akarjuk elérni, akkor használhatjuk például a FindWindow függvényt.
h:=FindWindow('TForm1','Form1');
FindWindow
function FindWindowA(
lpClassName,
lpWindowName: PAnsiChar
): HWND;
Egy futó ablak megkeresésére szolgál.
Paraméterek
lpClassName
Az ablak osztálya.
lpWindowName: PAnsiChar
Az ablak neve.
Visszatérési érték
Ha a függvény megtalálta a keresett ablakot, akkor annak azonosítójával tér vissza, ellenkező esetben 0-t ad eredményül.
A mellékelt két alkalmazás, forráskódjukat tekintve azonos. Kivételt egyedül a FindWindow függvény hívása képvisel. A két alkalmazásnak nyilvánvalóan egymásra kell hivatkoznia.
Problémát okozhat, ha az adott ablak éppen minimalizálva van. Ilyenkor vissza kell állítanunk előző állapotába.
Az ablak állapotát a GetWindowPlacement függvény segítségével kérdezhetjük le.
GetMem(p,SizeOf(PWINDOWPLACEMENT));
GetWindowPlacement(h,p);
Az ablak állapotára vonatkozó adatot a PWINDOWPLACEMENT struktúra showCmd tagjából olvashatjuk ki.
if (p.showCmd and SW_MINIMIZE)=0 then
ShowWindow(h,SW_RESTORE);
Amennyiben az adott ablak minimalizálva van, úgy a ShowWindow függvény segítségével visszaállítjuk az előző állapotába.
ShowWindow
function ShowWindow(
hWnd: HWND;
nCmdShow: Integer
): BOOL;
Egy ablak állapotának beállítására szolgál.
Paraméterek
hWnd: HWND
Az ablak azonosítója.
nCmdShow: Integer
A megjelenítés állapota. Használható értékek: SW_FORCEMINIMIZE, SW_HIDE, SW_MAXIMIZE, SW_MINIMIZE, SW_RESTORE, SW_SHOW, SW_SHOWDEFAULT, SW_SHOWMAXIMIZED, SW_SHOWMINIMIZED, SW_SHOWMINNOACTIVE, SW_SHOWNA, SW_SHOWNOACTIVATE, SW_SHOWNORMAL.
Visszatérési érték
Ha az ablak előző állapota rejtett volt, akkor a visszatérési érték hamis, ellenkező esetben igaz.
Ezután nem marad más hátra, minthogy átadjuk az ablaknak a fókuszt. Ezt a SetForeGroundWindow függvénnyel tehetjük meg.