[ bojan21 @ 15.07.2006. 17:54 ] @
Pozdrav!!! Da li neko moze da mi napise kod koji ce za izlaznu vrednost dati trenutnu iskoriscenost procesora (u %)!!! Da li to moze da se dobije iz Task Manager-a i da li postoji vec gotova funkcija u Windows API-u!!! Hvala!!!
[ kljaja14 @ 15.07.2006. 18:34 ] @
Moze iz Task Manager-a samo idi na karticu Perfomance.
[ savkic @ 15.07.2006. 18:49 ] @
> Da li neko moze da mi napise kod koji ce za izlaznu vrednost dati trenutnu iskoriscenost procesora (u %)!!! Da li to moze da se dobije iz Task
> Manager-a i da li postoji vec gotova funkcija u Windows API-u!!! Hvala!!!

Pogledaj NtQuerySystemInformation i GetSystemTimes.
[ bojan21 @ 15.07.2006. 19:22 ] @
Vazi probacu!!! @ kljalja14: Nisam mislio da otvaram TaskManager to vec znam da prikazuje u donjem desnom cosku!!!
[ bojan21 @ 15.07.2006. 19:29 ] @
Za sta mi sluzi GetSystemTimes??? Jel moram da formatiram dobijene vrednosti???
[ savkic @ 15.07.2006. 22:57 ] @
Potraži u MSDNu...
[ Miloš Baić @ 16.07.2006. 12:19 ] @
Pozdrav,

da ne bi kuckao ovde, zauzelo bi dosta prostora, skini fajl koji sam upload-ovao, pa javi da li si skontao...
[ bojan21 @ 16.07.2006. 13:17 ] @
O pa hvala na file-u ali kako je bre toliki??? Dao si mi i vise nego sto sam trazio!!! Radi ko podmazano!!! Poz!!!
[ buha18 @ 20.07.2006. 17:09 ] @
moze nesto slicno tome, ali da daje informacije o RAMu??
velicina modula, zauzeto modula, brzina rada, ...

[ Miloš Baić @ 21.07.2006. 01:32 ] @
Imaš TJvComputerInfoEx komponentu iz JVCL-a, vredi pogledati i TJclSysInfo.
Ova procedura može pomoći:
Code:

procedure TForm1.InitializeCaptions;
var
  MS: TMemoryStatus;
begin
  MS.dwLength := SizeOf(TMemoryStatus);
  GlobalMemoryStatus(MS);
  PhysMem.Caption := FormatFloat('#,###" KB"', MS.dwTotalPhys div 1024);
end;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
 InitializeCaptions;
end;
[ bojan21 @ 23.07.2006. 15:16 ] @
Evo ti jedan kod za RAM iz delphi primera:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  MS: TMemoryStatus;
begin
  GlobalMemoryStatus(MS);
  Label1.Caption := FormatFloat('# ###" MB"', MS.dwTotalPhys / 1024 / 1024);
  Label2.Caption := '(' +  Format('%d %%', [MS.dwMemoryLoad]) + ')' ;
  Label3.Caption := FormatFloat('# ###" MB"', (MS.dwTotalPhys - MS.dwAvailPhys) / 1024 / 1024);
  Label4.Caption := FormatFloat('# ###" MB"', MS.dwAvailPhys /1024 /1024);
end;



Label1(2,3,4) su ti imena labela (zameni sa tvojim)
[ buha18 @ 31.07.2006. 08:50 ] @
da li negdje u registru imaju ovi podaci o procesoru:
velicina cache memorije?
vrsta procesora? (intel, amd)
broj tranzistora?

ako ne, kako doci do njih?

a za RAM:
velicina?
broj modula?
latencija memorije?

hvala...
[ Miloš Baić @ 31.07.2006. 10:20 ] @
Pozdrav,

dobar deo toga ćeš naći ako pogledaš:
JCL biblioteku - JclSysInfo,
a u okviru JVCL imaš TJvComputerInfoEx komponentu.
[ buha18 @ 31.07.2006. 12:15 ] @
ajd prikvaci navedene biblioteke uz poruku...
hvala
[ Miloš Baić @ 31.07.2006. 12:58 ] @
Na žalost, ne mogu ih prikačiti ali možete ih skinuti odavde:
http://sourceforge.net/project...id=42327&release_id=395480
[ buha18 @ 05.08.2006. 19:43 ] @
ajd mi jos samo objasni kako isti nasnimati... (:
koristim delphi 6
[ Miloš Baić @ 06.08.2006. 01:22 ] @
Instalacija tih biblioteka i komponenti kod mene, delphi 7, je prošla sa nekim manjim problemima. Uglavnom, neki su pokušali na delphi 6 - ici, al nije prošlo, ili bar ne veći deo. Ne znam šta si skinuo, ali kad raspakuješ, trebao bi dobiti dva foldera (JCL, JVCL), bar kod mene je bilo tako i u njima pokreneš Install.bat.
Ako ne uspeš, šta znam, probaj iz foldera packages instalirati paket po paket i to prvo za JCL pa JVCL. Dodaj još putanju u Library Path pre toga...

BTW,ako zna neko bolje objasniti, samo napred...

P.S. nadam se da sam bar malo pomogao?!
[ Bojan Kopanja @ 06.08.2006. 11:13 ] @
Kod mene je instalacija prosle bez ikakvih problema na D7. Samo ubaci foldere tih paketa u path u delphiju i pokreni install.bat prvo za JCL, pa posle toga za JVCL i ne bi trebalo da bude nekih problema...
[ buha18 @ 07.08.2006. 07:20 ] @
JCL je djelom prosao (dosao je do dijela kad je brisao "instaler" ili nesto slicno...).
JVCL javlja gresku kod instalacije: Fatal: Unable to execute command: "C:\Programi\Škola\Borland\Delphi6\bin\make.ex
e"

JCL je na putanji "C:\Programi\Škola\Borland\Delphi6\JCL"
JVLC je na putanji "C:\Programi\Škola\Borland\Delphi6\JVCL"
[ marcha @ 07.08.2006. 13:17 ] @
Škola lepo zvuči, ali je Skola prihvatljivija za kompajler:)

[ buha18 @ 10.08.2006. 11:14 ] @
jel ima ko update pack #2 za delphi6?