|
Registriert seit: 26. Aug 2003
Ort: Steinfurt
292 Beiträge
Delphi XE2 Professional
|
Re: Name Finden...
8. Okt 2003, 19:13
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var P: PChar;
MaxLength: DWord;
begin
MaxLength := MAX_COMPUTERNAME_LENGTH + 1;
GetMem(P, MaxLength);
GetComputerName(P, MaxLength);
Caption := P;
end;
Debuggers don't remove Bugs, they only show them in Slow-Motion.
|