BIOS.

[tcpipchip]

Ops...desculpe...o Wagner ja tinha dito

[Wagner de Queiroz]

Falou e disse.

Entao, o Link do Joao é muito bom, segue aquele link que vc ta feito. Nunca pensei que usar WMI no delphi era tao estranho. Mas ta valendo. Só trocar a mensagem pela informacao que vc quer.

getWMIstring('','Win32_BIOS','VoltageCaps');

aqui vc tem uma lista dos verbos

http://vbnet.mvps.org/index.html?code/w ... cessor.htm

Bom. Agora vc tem o caminho das pedras, boa sorte!

[Pacheco]

Pegando informações do WMI com o Delphi

www.magsys.co.uk/delphi/

Arilson.

[fabim]

é pacheco eu dei uma estudada mais não serve para o que eu preciso.
Eu preciso de apenas estas informações.
CPU USAGE %
MEMORY USAGE
MEMORY FREE
CPU TEMP
MB TEMP
HD CAPACITY
HD USAGE
HD FREE

[esobrinho]

Galera, do link, http://www.alcpu.com/CoreTemp/, que o Wagner passou, eu baixei o projeto(vsc# demo do cara... o projeto dele acessa uma dll que ele disponibiliza. só que parece que dá um erro, em tempo de execução, que indica que aparentemente ele não está conseguindo acessar a dll, pois ele nao consegue ler as info do processador.

o erro é o mesmo deste chineizinho aqui:

http://www.alcpu.com/forums/viewtopic.php?t=492

ele responde que:

"Core Temp must be running for this to work."

tipo, a ddl tem que estar rodando?? como assim, não entendi... sou novo no c# e visual studio...

Obrigado pela ajuda

Abbraço

[Wagner de Queiroz]

é pacheco eu dei uma estudada mais não serve para o que eu preciso.
Eu preciso de apenas estas informações.
CPU USAGE %
MEMORY USAGE
MEMORY FREE
CPU TEMP
MB TEMP
HD CAPACITY
HD USAGE
HD FREE

Eu me lembro a um tempo atras quando era moda colocar LCD 16x2 no PC tinha algumas aplicacoes livres com source code que mostravam estas informacoes no LCD.

Aqui esta o mais conhecido:
http://lcdsmartie.sourceforge.net/smartied.htm

O Smartie parece que foi feito em delphi. Nao consigo baixar o codigo fonte dele no sourceforge. o CVS via web nao ta abrindo



agora tem este artigo interessante:

http://www.codeproject.com/KB/system/pr ... usage.aspx


infelizmente nao sei C ao ponto de te ajudar. eu tento olhar as funcoes que ele chama e tento ver na API do windows como chamar para o delphi.


EM TEMPO:


Eu consegui acessar os sources do SmartIE e o programa foi realmente feito no delphi. Aqui esta o fragmento do codigo que pega o uso do processador. Se vc tentar compilar, nao deve funcionar pq ta faltando umas variaveis declaradas em outros cantos da unit. Mas serve de aperitivo.

Código: Selecionar todos

function GetCPUUsage(Index: Integer): Double;
begin
    if _IsWinNT then
    begin
        if _ProcessorsCount < 0 then CollectCPUData;
        if (Index >= _ProcessorsCount) or (Index < 0) then
            raise Exception.Create('CPU index out of bounds');
        if _PrevSysTime = _SysTime then result:=0 else
        result:=1-(_Counters[index] - _PrevCounters[index])/(_SysTime-_PrevSysTime);
    end else
    begin
        if Index <> 0 then
            raise Exception.Create('CPU index out of bounds');
        if not _W9xCollecting then CollectCPUData;
        result:=_W9xCpuUsage / 100;
    end;
end;

var VI: TOSVERSIONINFO;

//------------------------------------------------------------------------------
procedure CollectCPUData;
var BS: integer;
    i: Integer;
    _PCB_Instance: PPERF_COUNTER_BLOCK;
    _PID_Instance: PPERF_INSTANCE_DEFINITION;
    ST: TFileTime;

var H: HKEY;
    R: DWORD;
    dwDataSize, dwType: DWORD;
begin
    if _IsWinNT then
    begin
        BS:=_BufferSize;
        while RegQueryValueEx( HKEY_PERFORMANCE_DATA, Processor_IDX_Str, nil, nil,
                PByte(_PerfData), @BS ) = ERROR_MORE_DATA do
        begin
            // Get a buffer that is big enough.
            INC(_BufferSize,$1000);
            BS:=_BufferSize;
            ReallocMem( _PerfData, _BufferSize );
        end;

        // Locate the performance object
        _POT := PPERF_OBJECT_TYPE(DWORD(_PerfData) + _PerfData.HeaderLength);
        for i := 1 to _PerfData.NumObjectTypes do
        begin
            if _POT.ObjectNameTitleIndex = Processor_IDX then Break;
            _POT := PPERF_OBJECT_TYPE(DWORD(_POT) + _POT.TotalByteLength);
        end;

        // Check for success
        if _POT.ObjectNameTitleIndex <> Processor_IDX then
            raise Exception.Create('Unable to locate the "Processor" performance object');

        if _ProcessorsCount < 0 then
        begin
            _ProcessorsCount:=_POT.NumInstances;
            GetMem(_Counters,_ProcessorsCount*SizeOf(TInt64));
            GetMem(_PrevCounters,_ProcessorsCount*SizeOf(TInt64));
        end;

        // Locate the "% CPU usage" counter definition
        _PCD := PPERF_Counter_DEFINITION(DWORD(_POT) + _POT.HeaderLength);
        for i := 1 to _POT.NumCounters do
        begin
            if _PCD.CounterNameTitleIndex = CPUUsageIDX then break;
            _PCD := PPERF_COUNTER_DEFINITION(DWORD(_PCD) + _PCD.ByteLength);
        end;

        // Check for success
        if _PCD.CounterNameTitleIndex <> CPUUsageIDX then
            raise Exception.Create('Unable to locate the "% of CPU usage" performance counter');

        // Collecting coutners
        _PID_Instance := PPERF_INSTANCE_DEFINITION(DWORD(_POT) + _POT.DefinitionLength);
        for i := 0 to _ProcessorsCount-1 do
        begin
            _PCB_Instance := PPERF_COUNTER_BLOCK(DWORD(_PID_Instance) + _PID_Instance.ByteLength );

            _PrevCounters[i]:=_Counters[i];
            _Counters[i]:=FInt64(PInt64(DWORD(_PCB_Instance) + _PCD.CounterOffset)^);

            _PID_Instance := PPERF_INSTANCE_DEFINITION(DWORD(_PCB_Instance) + _PCB_Instance.ByteLength);
        end;

        _PrevSysTime:=_SysTime;
        SystemTimeToFileTime(_PerfData.SystemTime, ST);
        _SysTime:=FInt64(TInt64(ST));
    end else
    begin
        if not _W9xCollecting then
        begin
            R:=RegOpenKeyEx( HKEY_DYN_DATA, 'PerfStats\StartStat', 0, KEY_ALL_ACCESS, H );
            if R <> ERROR_SUCCESS then
                raise Exception.Create('Unable to start performance monitoring');

            dwDataSize:=sizeof(DWORD);

            RegQueryValueEx( H, 'KERNEL\CPUUsage', nil, @dwType, PBYTE(@_W9xCpuUsage), @dwDataSize );

            RegCloseKey(H);

            R:=RegOpenKeyEx( HKEY_DYN_DATA, 'PerfStats\StatData', 0,KEY_READ, _W9xCpuKey );

            if R <> ERROR_SUCCESS then
                raise Exception.Create('Unable to read performance data');

            _W9xCollecting:=True;
        end;

        dwDataSize:=sizeof(DWORD);
        RegQueryValueEx( _W9xCpuKey, 'KERNEL\CPUUsage', nil,@dwType, PBYTE(@_W9xCpuUsage), @dwDataSize );
    end;
end;

[esobrinho]

Galera, do link, http://www.alcpu.com/CoreTemp/, que o Wagner passou, eu baixei o projeto(vsc# demo do cara... o projeto dele acessa uma dll que ele disponibiliza. só que parece que dá um erro, em tempo de execução, que indica que aparentemente ele não está conseguindo acessar a dll, pois ele nao consegue ler as info do processador.

o erro é o mesmo deste chineizinho aqui:

http://www.alcpu.com/forums/viewtopic.php?t=492

ele responde que:

"Core Temp must be running for this to work."

tipo, a ddl tem que estar rodando?? como assim, não entendi... sou novo no c# e visual studio...

Obrigado pela ajuda

Abbraço

alguém pode me dar uma ajuda?

[Wagner de Queiroz]

esobrinho, acho que é melhor vc criar um topico novo na area do C. Nem todos que conhecemos sao partidarios do Delphi. O topico aqui em questão é para o Delphi.

Os programadores C e de Delphi costumam brigar mais que os Hatfield e McCoys para dizer que linguagem é melhor. (O mesmo foi para a turma do VB e Delphi)

[esobrinho]

esobrinho, acho que é melhor vc criar um topico novo na area do C. Nem todos que conhecemos sao partidarios do Delphi. O topico aqui em questão é para o Delphi.

Os programadores C e de Delphi costumam brigar mais que os Hatfield e McCoys para dizer que linguagem é melhor. (O mesmo foi para a turma do VB e Delphi)

blz cara, obrigado

[vtrx]

Olha,ja fiz um aplicativo desses para reparação remota,mas não acho os fontes completos.
Vai ter que ir por partes pois para windows baseado no xp alguns itens vc tem que ler do registro.
Poe uma lista doque vc quer 'ler'.