spændene program men mangler hjælp :P

jeg er ved at lave et programder viser:

hvormeget forbrug der er på cpuén i %
cpu type pentium, amd mm.
mhz.
ledig plads på A: C: D: E: F:
internet opkobling forbindelse
internet type
aktuel oploading og downloading

men hved ikke hvor jeg kan finde info om at lave alt det her



http://www.lommeuld.dk

MiTeC System Information Component v.8.2 FW 3558 Kb 10 Apr 2003
By Michal Mutl. Component providing detailed system information:
Registered organization, owner
Time Zone info
Machine name, IP address, MAC Address
SMBIOS/DMI enumeration
Last boot date and time, Boot time
CPU architecture, type, active mask, count, level, revision, vendor, id, speed,
OS version, build number, platform, CSD version, version name, user name, serial number
Locale Information
DVD Region, folders
Graphic adapter chip name, dac, memory, screen width and height, color depth, modes
Sound card name, WaveIn, WaveOut, MIDIIn, MIDIOut, AUX, Mixer device name
Printers
Memory info, allocation granularity, min.and max.application address
Disk info, file system, controllers
BIOS name, copyright, extended info, date
Video BIOS version and date
Network adapter, protocols, sevices, clients
Winsock info
BDE, ODBC, DAO, ADO, ASPI, DirectX information
Device overview (like Device Manager)
Win9x resources
Running process enumeration
Installed software enumeration
Startup runs enumeration
Performance Library interface (NT and 9x)
Internet settings
Sharepoints, Service, Driver, Account, Event Log enumerations
Component showing CPU usage.
Component for HDD Serial, Model etc. detection.
XML reports and Report Viewer.


http://torry.net/vcl/system/systeminfo/msysinfo.zip

jeg er ved at lave et programder viser:

hvormeget forbrug der er på cpuén i %
cpu type pentium, amd mm.
mhz.
ledig plads på A: C: D: E: F:
internet opkobling forbindelse
internet type
aktuel oploading og downloading

men hved ikke hvor jeg kan finde info om at lave alt det her



http://www.lommeuld.dk

Hvis du vil vise hvor meget plads du har på diverse drev så kan du bruge følgende kode

var
  s : char;
  total,ledig : double;

procedure TForm1.DriveComboBox1Change(Sender: TObject);
begin
s := drivecombobox1.Drive;
total := disksize(ord(s) - 64);
ledig := diskfree(ord(s) - 64);
ledig := ledig / 1024 / 1024;
total := total / 1024 / 1024;
label1.Caption := Format('Ledig Plads: %12.0n', [ledig]);
Label2.Caption := Format('Samlet Størrelse: %12.0n', [total]);
Label3.Caption := IntToStr(Round((total - ledig) / total * 100)) +
    ' Procent brugt.';
end;

Du skal bare bruge en drivecombobox (win 3.1 paletten) og 3 labels

jeg er ved at lave et programder viser:

hvormeget forbrug der er på cpuén i %
cpu type pentium, amd mm.
mhz.
ledig plads på A: C: D: E: F:
internet opkobling forbindelse
internet type
aktuel oploading og downloading

men hved ikke hvor jeg kan finde info om at lave alt det her



http://www.lommeuld.dk

Jeg har også lavet et lignende program, og jeg gider altså ikke lige at forklare og redigere dem, men jeg håber at du nogenlunde kan forstå dem:
Info er en TMemo, og Keys, Values, Drives, Extra og Final er TStringList's og så bruger unit'en også RegEdit med Reg som en TRegistry. Der er måske også nogle andre komponenter, men dem kan du bare slette. Total er af typen Integer. Til måling CPU anbefaler jeg adCpuUsage.

procedure TMain.Processor;
var
  i: Integer;
begin
  Info.Clear;
  Reg.OpenKey('\\HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\', False);
  Keys.Clear;
  Reg.GetKeyNames(Keys);
  for i := 0 to Keys.Count-1 do begin
    Reg.OpenKey('\\HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\'+Keys.Strings[i], False);
    Info.Lines.Add('Processor: ' + Reg.ReadString('ProcessorNameString'));
    Info.Lines.Add('Type: ' + Reg.ReadString('Identifier'));
    Info.Lines.Add('Hastighed: ' + VarToStr(Reg.ReadInteger('~MHz')) + ' MHz');
  end;
end;

procedure TMain.RAM(Size: Integer);
var
  Mem: TMemoryStatus;
begin
  Info.Show;
  GlobalMemoryStatus(Mem);
  Info.Clear;
  if Size = 1 then begin
    Info.Lines.Add('Samlet fysisk hukommelse: ' + VarToStr(RoundTo(Mem.dwTotalPhys, -4)) + ' B');
    Info.Lines.Add('');
    Info.Lines.Add('Fysisk hukommelse anvendt: ' + VarToStr(RoundTo(Mem.dwMemoryLoad/100 * Mem.dwTotalPhys, -4)) + ' B (' + VarToStr(Mem.dwMemoryLoad) + ' %)');
    Info.Lines.Add(''); Info.Lines.Add('');
    Info.Lines.Add('Fysisk hukommelse ledig: ' + VarToStr(RoundTo(Mem.dwTotalPhys - (Mem.dwMemoryLoad/100 * Mem.dwTotalPhys), -4)) + ' B (' + VarToStr(100 - Mem.dwMemoryLoad) + ' %)');
  end;
  if Size = 2 then begin
    Info.Lines.Add('Samlet fysisk hukommelse: ' + VarToStr(RoundTo(Mem.dwTotalPhys/1024, -4)) + ' KB');
    Info.Lines.Add('');
    Info.Lines.Add('Fysisk hukommelse anvendt: ' + VarToStr(RoundTo(Mem.dwMemoryLoad/100 * Mem.dwTotalPhys/1024, -4)) + ' KB (' + VarToStr(Mem.dwMemoryLoad) + ' %)');
    Info.Lines.Add(''); Info.Lines.Add('');
    Info.Lines.Add('Fysisk hukommelse ledig: ' + VarToStr(RoundTo(Mem.dwTotalPhys/1024 - (Mem.dwMemoryLoad/100 * Mem.dwTotalPhys)/1024, -4)) + ' KB (' + VarToStr(100 - Mem.dwMemoryLoad) + ' %)');
  end;
  if Size = 3 then begin
    Info.Lines.Add('Samlet fysisk hukommelse: ' + VarToStr(RoundTo(Mem.dwTotalPhys/1048576, -4)) + ' MB');
    Info.Lines.Add('');
    Info.Lines.Add('Fysisk hukommelse anvendt: ' + VarToStr(RoundTo(Mem.dwMemoryLoad/100 * Mem.dwTotalPhys/1048576, -4)) + ' MB (' + VarToStr(Mem.dwMemoryLoad) + ' %)');
    Info.Lines.Add(''); Info.Lines.Add('');
    Info.Lines.Add('Fysisk hukommelse ledig: ' + VarToStr(RoundTo(Mem.dwTotalPhys/1048576 - (Mem.dwMemoryLoad/100 * Mem.dwTotalPhys/1048576), -4)) + ' MB (' + VarToStr(100 - Mem.dwMemoryLoad) + ' %)');
  end;
  if Size = 4 then begin
    Info.Lines.Add('Samlet fysisk hukommelse: ' + VarToStr(RoundTo(Mem.dwTotalPhys/1073741824, -4)) + ' GB');
    Info.Lines.Add('');
    Info.Lines.Add('Fysisk hukommelse anvendt: ' + VarToStr(RoundTo(Mem.dwMemoryLoad/100 * Mem.dwTotalPhys/1073741824, -4)) + ' GB (' + VarToStr(Mem.dwMemoryLoad) + ' %)');
    Info.Lines.Add(''); Info.Lines.Add('');
    Info.Lines.Add('Fysisk hukommelse ledig: ' + VarToStr(RoundTo(Mem.dwTotalPhys/1073741824 - (Mem.dwMemoryLoad/100 * Mem.dwTotalPhys/1073741824), -4)) + ' GB (' + VarToStr(100 - Mem.dwMemoryLoad) + ' %)');
  end;
  if Size = 5 then begin
    Info.Lines.Add('Samlet fysisk hukommelse: ' + VarToStr(RoundTo(Mem.dwTotalPhys/1099511627776, -4)) + ' TB');
    Info.Lines.Add('');
    Info.Lines.Add('Fysisk hukommelse anvendt: ' + VarToStr(RoundTo(Mem.dwMemoryLoad/100 * Mem.dwTotalPhys/1099511627776, -4)) + ' TB (' + VarToStr(Mem.dwMemoryLoad) + ' %)');
    Info.Lines.Add(''); Info.Lines.Add('');
    Info.Lines.Add('Fysisk hukommelse ledig: ' + VarToStr(RoundTo(Mem.dwTotalPhys/1099511627776 - (Mem.dwMemoryLoad/100 * Mem.dwTotalPhys/1099511627776), -4)) + ' TB (' + VarToStr(100 - Mem.dwMemoryLoad) + ' %)');
  end;
end;

procedure TMain.Harddisk(Size: Integer);
var
  i, a, b, c: Integer;
  Drives2: TStringList;
begin
  Info.Clear;
  Keys.Clear;
  Values.Clear;
  Extra.Clear;
  Final.Clear;
  Drives.Clear;
  Total := 0;
  Reg.OpenKey('\\HARDWARE\\DEVICEMAP\\Scsi', False);
  Reg.GetKeyNames(Keys);
  if Keys.Count > 0 then for i := 0 to Keys.Count-1 do begin
    Reg.OpenKey('\\HARDWARE\\DEVICEMAP\\Scsi\\'+Keys.Strings[i], False);
    Reg.GetKeyNames(Values);
    if Values.Count > 0 then for a := 0 to Values.Count-1 do begin
      Reg.OpenKey('\\HARDWARE\\DEVICEMAP\\Scsi\\'+Keys.Strings[i]+'\\'+Values.Strings[a], False);
      Reg.GetKeyNames(Extra);
      if Extra.Count > 0 then for b := 0 to Extra.Count-1 do begin
        Reg.OpenKey('\\HARDWARE\\DEVICEMAP\\Scsi\\'+Keys.Strings[i]+'\\'+Values.Strings[a]+'\\'+Extra.Strings[b], False);
        Reg.GetKeyNames(Final);
        if Final.Count > 0 then for c := 0 to Final.Count-1 do begin
          Reg.OpenKey('\\HARDWARE\\DEVICEMAP\\Scsi\\'+Keys.Strings[i]+'\\'+Values.Strings[a]+'\\'+Extra.Strings[b]+'\\'+Final.Strings[c], False);
          if Reg.ReadString('Type') = 'DiskPeripheral' then Info.Lines.Add('Harddisk: '+Reg.ReadString('Identifier'));
        end;
      end;
    end;
  end;
  Drives2 := TStringList.Create;
  for i := 0 to 24 do begin
    if GetDriveType(PChar(Char(65+i)+':\\')) = DRIVE_FIXED then Drives.Add(Char(65+i));
    if GetDriveType(PChar(Char(65+i)+':\\')) = DRIVE_FIXED then Drives2.Add(IntToStr(i));
  end;

  for i := 0 to Drives2.Count-1 do
  Total := Total+DiskSize(StrToInt(Drives2.Strings[i])+1);

  if Size = 1 then begin
    Info.Lines.Add('');
    Info.Lines.Add('Samlet disk størrelse: '+VarToStr(RoundTo(Total, -4))+' B');
    Info.Lines.Add('');
    Info.Lines.Add('Partioner:'); Info.Lines.Add('');
    for i := 0 to Drives.Count-1 do
    if GetDriveType(PChar(Char(65+StrToInt(Drives2.Strings[i]))+':\\')) = DRIVE_FIXED then begin
      Info.Lines.Add('Partion '+Drives.Strings[i]+':\\');
      Info.Lines.Add('Samlet diskplads: '+VarToStr(RoundTo(DiskSize(StrToInt(Drives2.Strings[i])+1), -4))+' B');
      Info.Lines.Add('Anvendt diskplads: '+VarToStr(RoundTo(DiskSize(StrToInt(Drives2.Strings[i])+1)-DiskFree(StrToInt(Drives2.Strings[i])+1), -4))+' B');
      Info.Lines.Add('Fri diskplads: '+VarToStr(RoundTo(DiskFree(StrToInt(Drives2.Strings[i])+1), -4))+' B');
      Info.Lines.Add('__________'); Info.Lines.Add('');
    end;
  end;
  if Size = 2 then begin
    Info.Lines.Add('');
    Info.Lines.Add('Samlet disk størrelse: '+VarToStr(RoundTo(Total/1024, -4))+' KB');
    Info.Lines.Add('');
    Info.Lines.Add('Partioner:'); Info.Lines.Add('');
    for i := 0 to Drives.Count-1 do
    if GetDriveType(PChar(Char(65+StrToInt(Drives2.Strings[i]))+':\\')) = DRIVE_FIXED then begin
      Info.Lines.Add('Partion '+Drives.Strings[i]+':\\');
      Info.Lines.Add('Samlet diskplads: '+VarToStr(RoundTo(DiskSize(StrToInt(Drives2.Strings[i])+1)/1024, -4))+' KB');
      Info.Lines.Add('Anvendt diskplads: '+VarToStr(RoundTo(DiskSize(StrToInt(Drives2.Strings[i])+1)/1024-DiskFree(StrToInt(Drives2.Strings[i])+1)/1024, -4))+' KB');
      Info.Lines.Add('Fri diskplads: '+VarToStr(RoundTo(DiskFree(StrToInt(Drives2.Strings[i])+1)/1024, -4))+' KB');
      Info.Lines.Add('__________'); Info.Lines.Add('');
    end;
  end;
   if Size = 3 then begin
    Info.Lines.Add('');
    Info.Lines.Add('Samlet disk størrelse: '+VarToStr(RoundTo(Total/1048576, -4))+' MB');
    Info.Lines.Add('');
    Info.Lines.Add('Partioner:'); Info.Lines.Add('');
    for i := 0 to Drives.Count-1 do
    if GetDriveType(PChar(Char(65+StrToInt(Drives2.Strings[i]))+':\\')) = DRIVE_FIXED then begin
      Info.Lines.Add('Partion '+Drives.Strings[i]+':\\');
      Info.Lines.Add('Samlet diskplads: '+VarToStr(RoundTo(DiskSize(StrToInt(Drives2.Strings[i])+1)/1048576, -4))+' MB');
      Info.Lines.Add('Anvendt diskplads: '+VarToStr(RoundTo(DiskSize(StrToInt(Drives2.Strings[i])+1)/1048576-DiskFree(StrToInt(Drives2.Strings[i])+1)/1048576, -4))+' MB');
      Info.Lines.Add('Fri diskplads: '+VarToStr(RoundTo(DiskFree(StrToInt(Drives2.Strings[i])+1)/1048576, -4))+' MB');
      Info.Lines.Add('__________'); Info.Lines.Add('');
    end;
  end;
  if Size = 4 then begin
    Info.Lines.Add('');
    Info.Lines.Add('Samlet disk størrelse: '+VarToStr(RoundTo(Total/1073741824, -4))+' GB');
    Info.Lines.Add('');
    Info.Lines.Add('Partioner:'); Info.Lines.Add('');
    for i := 0 to Drives.Count-1 do
    if GetDriveType(PChar(Char(65+StrToInt(Drives2.Strings[i]))+':\\')) = DRIVE_FIXED then begin
      Info.Lines.Add('Partion '+Drives.Strings[i]+':\\');
      Info.Lines.Add('Samlet diskplads: '+VarToStr(RoundTo(DiskSize(StrToInt(Drives2.Strings[i])+1)/1073741824, -4))+' GB');
      Info.Lines.Add('Anvendt diskplads: '+VarToStr(RoundTo(DiskSize(StrToInt(Drives2.Strings[i])+1)/1073741824-DiskFree(StrToInt(Drives2.Strings[i])+1)/1073741824, -4))+' GB');
      Info.Lines.Add('Fri diskplads: '+VarToStr(RoundTo(DiskFree(StrToInt(Drives2.Strings[i])+1)/1073741824, -4))+' GB');
      Info.Lines.Add('__________'); Info.Lines.Add('');
    end;
  end;
  if Size = 5 then begin
    Info.Lines.Add('');
    Info.Lines.Add('Samlet disk størrelse: '+VarToStr(RoundTo(Total/1099511627776, -4))+' TB');
    Info.Lines.Add('');
    Info.Lines.Add('Partioner:'); Info.Lines.Add('');
    for i := 0 to Drives.Count-1 do
    if GetDriveType(PChar(Char(65+StrToInt(Drives2.Strings[i]))+':\\')) = DRIVE_FIXED then begin
      Info.Lines.Add('Partion '+Drives.Strings[i]+':\\');
      Info.Lines.Add('Samlet diskplads: '+VarToStr(RoundTo(DiskSize(StrToInt(Drives2.Strings[i])+1)/1099511627776, -4))+' TB');
      Info.Lines.Add('Anvendt diskplads: '+VarToStr(RoundTo(DiskSize(StrToInt(Drives2.Strings[i])+1)/1099511627776-DiskFree(StrToInt(Drives2.Strings[i])+1)/1099511627776, -4))+' TB');
      Info.Lines.Add('Fri diskplads: '+VarToStr(RoundTo(DiskFree(StrToInt(Drives2.Strings[i])+1)/1099511627776, -4))+' TB');
      Info.Lines.Add('__________'); Info.Lines.Add('');
    end;
  end;

  Drives2.Free;
end;

procedure TMain.CDROM(Size: Integer);
var
  i, a, b, c: Integer;
  Drives2: TStringList;
begin
  Info.Clear;
  Sizes3.Show;
  Drives.Clear;
  Drives2 := TStringList.Create;
  for i := 0 to 24 do begin
    if GetDriveType(PChar(Char(65+i)+':\\')) = DRIVE_CDROM then Drives.Add(Char(65+i));
    if GetDriveType(PChar(Char(65+i)+':\\')) = DRIVE_CDROM then Drives2.Add(IntToStr(i+1));
  end;

  Reg.OpenKey('\\HARDWARE\\DEVICEMAP\\Scsi', False);
  Reg.GetKeyNames(Keys);
  if Keys.Count > 0 then for i := 0 to Keys.Count-1 do begin
    Reg.OpenKey('\\HARDWARE\\DEVICEMAP\\Scsi\\'+Keys.Strings[i], False);
    Reg.GetKeyNames(Values);
    if Values.Count > 0 then for a := 0 to Values.Count-1 do begin
      Reg.OpenKey('\\HARDWARE\\DEVICEMAP\\Scsi\\'+Keys.Strings[i]+'\\'+Values.Strings[a], False);
      Reg.GetKeyNames(Extra);
      if Extra.Count > 0 then for b := 0 to Extra.Count-1 do begin
        Reg.OpenKey('\\HARDWARE\\DEVICEMAP\\Scsi\\'+Keys.Strings[i]+'\\'+Values.Strings[a]+'\\'+Extra.Strings[b], False);
        Reg.GetKeyNames(Final);
        if Final.Count > 0 then for c := 0 to Final.Count-1 do begin
          Reg.OpenKey('\\HARDWARE\\DEVICEMAP\\Scsi\\'+Keys.Strings[i]+'\\'+Values.Strings[a]+'\\'+Extra.Strings[b]+'\\'+Final.Strings[c], False);
          if Reg.ReadString('Type') = 'CdRomPeripheral' then Info.Lines.Add('CD-ROM drev: '+Reg.ReadString('Identifier'));
        end;
      end;
    end;
  end;

  Info.Lines.Add(''); Info.Lines.Add('Drev størrelser:'); Info.Lines.Add('');
  if Size = 1 then begin
    for i := 0 to Drives.Count-1 do begin
      if DiskSize(StrToInt(Drives2.Strings[i])) >= 0 then
      Info.Lines.Add(Drives.Strings[i]+': '+VarToStr(RoundTo(DiskSize(StrToInt(Drives2.Strings[i])), -4))+' B') else
      Info.Lines.Add(Drives.Strings[i]+': Ingen disk i drevet');
      Info.Lines.Add('__________'); Info.Lines.Add('');
    end;
  end;
  if Size = 2 then begin
    for i := 0 to Drives.Count-1 do begin
      if DiskSize(StrToInt(Drives2.Strings[i])) >= 0 then
      Info.Lines.Add(Drives.Strings[i]+': '+VarToStr(RoundTo(DiskSize(StrToInt(Drives2.Strings[i]))/1024, -4))+' KB') else
      Info.Lines.Add(Drives.Strings[i]+': Ingen disk i drevet');
      Info.Lines.Add('__________'); Info.Lines.Add('');
    end;
  end;
  if Size = 3 then begin
    for i := 0 to Drives.Count-1 do begin
      if DiskSize(StrToInt(Drives2.Strings[i])) >= 0 then
      Info.Lines.Add(Drives.Strings[i]+': '+VarToStr(RoundTo(DiskSize(StrToInt(Drives2.Strings[i]))/1048576, -4))+' MB') else
      Info.Lines.Add(Drives.Strings[i]+': Ingen disk i drevet');
      Info.Lines.Add('__________'); Info.Lines.Add('');
    end;
  end;
  if Size = 4 then begin
    for i := 0 to Drives.Count-1 do begin
      if DiskSize(StrToInt(Drives2.Strings[i])) >= 0 then
      Info.Lines.Add(Drives.Strings[i]+': '+VarToStr(RoundTo(DiskSize(StrToInt(Drives2.Strings[i]))/1073741824, -4))+' GB') else
      Info.Lines.Add(Drives.Strings[i]+': Ingen disk i drevet');
      Info.Lines.Add('__________'); Info.Lines.Add('');
    end;
  end;
  if Size = 5 then begin
    for i := 0 to Drives.Count-1 do begin
      if DiskSize(StrToInt(Drives2.Strings[i])) >= 0 then
      Info.Lines.Add(Drives.Strings[i]+': '+VarToStr(RoundTo(DiskSize(StrToInt(Drives2.Strings[i]))/1099511627776, -4))+' TB') else
      Info.Lines.Add(Drives.Strings[i]+': Ingen disk i drevet');
      Info.Lines.Add('__________'); Info.Lines.Add('');
    end;
  end;
  
  Drives2.Free;
end;

***************************************
***************** nife ******************
***************************************

det var ikke fordi jeg ville ha det hele savert på sølvfad jeg vil gerne ha nogle sider hvor der står noget om det så jeg også kan lære lidt af det vil ikke ha noget der er lavet som jeg skal rediger

jeg er ved at lave et programder viser:

hvormeget forbrug der er på cpuén i %
cpu type pentium, amd mm.
mhz.
ledig plads på A: C: D: E: F:
internet opkobling forbindelse
internet type
aktuel oploading og downloading

men hved ikke hvor jeg kan finde info om at lave alt det her



http://www.lommeuld.dk

OK så... så får du WMIQuery, et lille interface komponent som skaber forbindelse til Windows Management Instrumentation.

http://www.vclcomponents.com/download.asp?ID_COMPONENT=19531

betrak det som at jeg vil ha en eller flere artikler om det

lækker banjoe lige en der kunne fatte hva jeg mente sorry at jeg kun giver dig 2 point men det skal jo fordeles over flere hvis nu der var flere der kunne fortælle mig lidt

er det mulig at jeg kan se det du har lavet