Bilgisayar adını bulma

[mpolat]

S.A.
programın çalıştığı bilgisayarın adını bulabilmek nasıl bir yol izlemem gerekir?

iyi çalışmalar...

[aslangeri]

registerde

HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ActiveComputerName

anahtarına bak

[mpolat]

baktım şimdi naapim

[baypipox]

Kod: Tümünü seç

function GetComputerName: string; 
var 
buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char; 
Size: Cardinal; 
begin 
Size := MAX_COMPUTERNAME_LENGTH + 1; 
Windows.GetComputerName(@buffer, Size); 
Result := StrPas(buffer); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
ShowMessage(GetComputerName); 
end;