بدست آوردن username یک کامپیوتر

با سلام
می خواهم از طریق دلفی اسم کابری را که تو ویندوز xp وارد شده را بفهمم. از دستورات زیر استفاده کردم ولی خطا داد.
کسی میدونه چرا ؟ :(

procedure TForm1.Button1Click(Sender: TObject);
var
StrUserName: PChar;
const
Size: Integer = 20;
begin
GetMem(StrUserName, Size);
GetUserName(StrUserName, Size);
Label1.Caption:=StrPas(StrUserName);
FreeMem(StrUserName);
end;
اصلاح شده توسط مشاطان

[SyntaxCheck]

سلام
Size باید بصورت متغیر کاردینال تعریف بشه و نه ثابت. شما از یک ثابت استفاده کردید.

[SReza1]

خوب سایز رو اونطوری نباید تعریف کنی
در ضمن در ویندوز مبشه فهمید که حداکثر طول نام کامپویر و یا نام کابری چقدر است

Function TDM1.GetPCName : String;
Var LocalMachine: array [0..MAX_COMPUTERNAME_LENGTH] of char;
Size: DWORD;
begin
Size := Sizeof(LocalMachine);
GetComputerName(LocalMachine, Size);
Result := LocalMachine;
end;
این دسنور ور نگاه کن اسمه کامپوتر رو برمیگردونه‍‍ کنار اون هم میتونی تو جستجو MSND استفاده کنی

[Gladiator]

توی مجموعه کامپوننتهای ایندی چند کامپوننت هست که ( البته برای این منظور نیستند ) ولی به راحتی نام کامپیوتر رو برمیگردونه و فقط به 1 خط کد نویسی احتیاج داره .

موفق باشید .
گلادیاتور .

با تشکر از توجه دوستان
من هم می دانم که تعریف متغیر size را اشتباه انجام دادم. ولی روش درست آنرا نمی دانم. :|
لطفا روش درست آنرا بفرمایید .
با تشکر

[Kambiz]

خوب سایز رو اونطوری نباید تعریف کنی
در ضمن در ویندوز مبشه فهمید که حداکثر طول نام کامپویر و یا نام کابری چقدر است

Function TDM1.GetPCName : String;
Var LocalMachine: array [0..MAX_COMPUTERNAME_LENGTH] of char;
Size: DWORD;
begin
Size := Sizeof(LocalMachine);
GetComputerName(LocalMachine, Size);
Result := LocalMachine;
end;
این دسنور ور نگاه کن اسمه کامپوتر رو برمیگردونه‍‍ کنار اون هم میتونی تو جستجو MSND استفاده کنی
جناب SReza1 دو سه پست قبلتر روش صحیح رو با یک مثال کامل عنوان کردند.

با سلام مجدد
باید ببخشید. بی سوادی و هزار دردسر. :oops:
شما درست گفتید و مشکل من حل شد.
با تشکر از همه اساتید