Ana bilgisayarın adını döndürür. uses Windows; function ComputerName: string; var Buf: array[0..Windows.MAX_COMPUTERNAME_LENGTH] of Char; // for computer name BufSize: Windows.DWORD; // size of name buffer begin BufSize := SizeOf(Buf); if Windows.GetComputerName(Buf, BufSize) then Result := Buf else Result := ''; end; begin write(ComputerName); readln; end.
Devamını Oku »Notepad ++ fpc compile
Notepad ++ kullanarak yazdığımız kodu yine notepad++ içerisinden compile etmek için öncelikler notepad++ a NppExec plugini kuruyoruz bunun için gelen ekranda NppExec seçtikten sonra install buttonuna basıp kurulumu geçekleştiriyoruz. daha sonra fpc ile kodlarımızı nasıl compile edeceğini plugine tanımlıyoruz. bunun için F6 yada eklentiler >NppExec > Execute menüsünü izliyoruz …
Devamını Oku »