Anasayfa > Kodlar > Delphi ile GetEnvironMentStrings

Delphi ile GetEnvironMentStrings


Windows'un environment bilgileri (Path,Temp,Bilgisayar İsmi vs....)

Unit
Windows.Pas

Syntax
GetEnvironmentStrings: PChar

Örnek:
procedure TForm1.Button1Click(Sender: Tobject);
var
MyPointer: PChar;
Memo1.Lines.Clear;
begin
MyPointer := GetEnvironmentStrings;
if MyPointer <> nil then
while MyPointer <> nil do
begin
Memo1.Lines.Add(StrPas(MyPointer));
Inc(MyPointer,StrLen(MyPointer)+1);
if (Byte(MyPointer[0]) = 0) then MyPointer := nil;
end;
FreeEnvironmentStrings(MyPointer);
end;

Fatih BADUR.


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: