RSS  

سلام

یه تابع برای بدست آوردن نام کامپیوتری که برنامه داره اجرا میشه

میتونید از این تابع در ConnectionString برای بدست آوردن WorkStationID استفاده کنید

function ComputerName:string;

var

 BufsSIze:DWORD;

 CName : array [0..255] of char;

begin

 BufsSIze:=255;

 GetComputerName(CName,BufsSIze);

 Result:= CName;

end;