HyperLink
Bejelentkezés
E-mail: 
Jelszó: 





Skip Navigation Links
 

Számítógép kijelölése rendszerablak megnyitása


Példaprogram letöltése

3487 bájt

A Delphi Dialogs palettáján számos rendszerablak megnyitásához találhatunk komponenseket. Ezek azonban nem fedik le a rendelkezésre álló ablakok teljes palettáját. Egy ilyen hiányzó ablak a „Számítógép kijelölése” ablak is. Ebben a példában megnézzük, hogy ezt a rendszerablakot hogyan lehet megjeleníteni és használni.

Ennek a rendszerablaknak az implementációja az ntlanman.dll (WINDOWS\System32 könyvtár) állományban található, ServerBrowseDialogA0 néven. Az ablak eléréséhez deklarálnunk kell a ServerBrowseDialogA0 függvényt.
function ServerBrowseDialogA0(hwnd: HWND; pchBuffer: Pointer; cchBufSize: DWORD): BOOL; stdcall; external 'ntlanman.dll';
Miután deklaráltuk a függvényt, létrehozhatunk egy saját függvényt, amely megnyitja a rendszerablakot és az ott kiválasztott számítógép nevét, String formátumban visszaadja eredményül.
function ShowComputersDialog: String;
var 
  Buffer: array[0..1024] of Char;
  i: Integer;
begin
  for i:=1 to 1024 do
    Buffer[i]:=' ';
  Result:='';
  ServerBrowseDialogA0(Form1.Handle,@Buffer,1024);
  if Buffer[0]='\' then
    Result:=Buffer;
end;
A ServerBrowseDialogA0 függvény, a kiválasztott számítógép nevét egy karakter tömbben adja vissza eredményül (Buffer).

Könyv
Ez a cikk megtalálható ebben a könyvben: Delphi Software Offline 2003 évkönyv 65. oldal

Felhasználási feltételek
A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!

Copyright © 1999-2012 Animare Software Kft. Minden jog fenntartva!
| Készült: Animare Stúdió | Adatvédelem | Kapcsolat |