Cek Service, Nama Komputer dan User dengan Delphi

Pada Postingan ini saya ingin berbagi bagaimana mengetahui Nama Komputer, Nama User Komputer dan Service Windows yang sedang berjalan dengan menggunakan Delphi. Dalam Contoh ini Saya mencoba menampilkan Informasi Service MySQL di Windows Selain itu juga akan menampilkan Nama dan User Komputer pada sebuah Label dimana kesemuanya dilakukan Oleh masing-masing Fungsi.

Jadi, Terdapat tiga buah fungsi dalam contoh ini yaitu Funggsi GetComputerNameFromWindows, Fungsi GetUserFromWindows dan Fungsi ServiceGetStatus. Berikut adalah dua dari tiga Fungsi tesebut.

// Cek Nama Komputer
function GetComputerNameFromWindows: string;
var
  iLen: Cardinal;
begin
  iLen := MAX_COMPUTERNAME_LENGTH + 1;
  Result := StringOfChar(#0, iLen);
  GetComputerName(PChar(Result), iLen);
  SetLength(Result, iLen);
end;

// Cek User Komputer
function GetUserFromWindows: string;
var
  iLen: Cardinal;
begin
  iLen := 256;         
  Result := StringOfChar(#0, iLen);
  GetUserName(PChar(Result), iLen);
  SetLength(Result, iLen);
end;

Penggunaan Kedua Fungsi tersebut cukup mudah yaitu hanya dengan memanggil dama fungsinya saja dalam event yang anda kehendaki suatu misal seperti berikut ini

Label5.Caption:=GetComputerNameFromWindows;
Label6.Caption:=GetUserFromWindows;

Untuk Lebih Jelasnya mungkin anda bisa mendownload Contoh Source Codenya disini.