تشخیص سرویس پک از ویندوز

[hamid_isf_1360]

سلام خسته نباشید
می خواستم بدونم در دلفی چطور می شه تشخیص داد که کاربر در حال استفاده از
کدام سرویس پک از ویندوز ایکس پی می باشد.
با تشکر

[Inprise]

یک راه خوب و قابل اعتماد اینه که از WMI استفاده کنی و Select * from Win32_OperatingSystem رو بهش پاس کنی .

[hamid_isf_1360]

می شه یکم بیشتر توضیح بدید آخه من در دلفی تازه کارم
اگر بتونید یه سورس برام بزارید خیلی ممنون می شم

[manvaputra]

سلام دوست عزیز زیر استفاده کن:

procedure TForm1.Button1Click(Sender: TObject);
var
osv : TOSVERSIONINFO;
c:string;
i:integer;
begin
osv.dwOSVersionInfoSize := sizeOf( OSVERSIONINFO );
GetVersionEx(osv);
for i:=0 to 127 do
c:=c+osv.szCSDVersion[i];
edit1.Text:=c;
end;

نمونه برنامه هم براتون آپ کردم.
http://rapidshare.com/files/56507901/service_pack.zip.html