Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#9

Re: alle pcs mit ip auflisten

  Alt 29. Apr 2004, 21:00
Delphi-Quellcode:
// Deklarationen des Dialoges
const
  ServerBrowseDialogA0_name = 'ServerBrowseDialogA0';

type
  TServerBrowseDialogA0 = function(hwnd: HWND; pchBuffer: pointer; cchBufSize:
    DWord): bool; stdcall;

var
  ServerBrowseDialogA0: TServerBrowseDialogA0 = nil;
Delphi-Quellcode:
var
  Buffer: array[0..1024] of Char;
  s: String;
begin
  ServerBrowseDialogA0(hDlg, @Buffer, sizeof(Buffer));
  s := copy(string(Buffer), 3, length(string(Buffer)));
hDlg ist das Handle deines Fensters. In s steht dann der gewählte Computer ohne die "\\" am Anfang.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat