| Anonymous | 22.07.2005 - 16:42:21 |
| merhaba arkadaslar simdi bi program yaziorumda fakat delphi 5 kullaniorum bilgisayar adini hangi kodla ogrenebilirim bide internet tabanli bi program olacagi icin online/offlinemi oldugunu nasil anlarim aradim bulamadim formda simdiden tskler | |
| vedatkaba | 23.07.2005 - 10:29:58 |
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; Kolay gelsin. | |