Find HDD partitioner

Du dobbeltklikker på 'Denne Computer' ?

Hvis det skal være avanceret, kan åbne kontrolpanelet og vælge:
Administration -> Computeradministration -> Lager -> Diskhåndtering

Er du dummere end mig, eller er det blot et pinligt forsøg på at være morsom?

Jeg er da sikker på, at du godt kan lave et delphi-program, som flytter med musen og udfører disse ting..

:)

Sikkert.. men det var nu ikke lige pointen med dette spørgsmål..

jackass-: På http://www.swissdelphicenter.com/en/showcode.php?id=562 er der et eksempel på hvordan du kan gøre det.

duckman: Det er altid en fordel at se efter hvilken kategori man er i _inden_ man begynder at svare på spørgsmål ;)

sorry, den missede jeg lige ;)

Har prøvet med:

*************************************
procedure List_Drives;
const
  DRIVE_UNKNOWN = 0;
  DRIVE_NO_ROOT_DIR = 1;
  DRIVE_REMOVABLE = 2;
  DRIVE_FIXED = 3;
  DRIVE_REMOTE = 4;
  DRIVE_CDROM = 5;
  DRIVE_RAMDISK = 6;
var
  r: LongWord;
  Drives: array[0..128] of char;
  pDrive: PChar;
begin
  r := GetLogicalDriveStrings(SizeOf(Drives), Drives);
  if r = 0 then Exit;
  if r > SizeOf(Drives) then
    raise Exception.Create(SysErrorMessage(ERROR_OUTOFMEMORY));
  pDrive := Drives;
  while pDrive^ <> #0 do
  begin
    if GetDriveType(pDrive) = DRIVE_FIXED then
        Form1.ComboBox1.Items.Add(pDrive);

    Inc(pDrive, 4);
  end;
end;
*************************************

...i Delphi 7, hvilket ikke virker. Den melder ingen fejl, men der bliver bare ikke added nogen items i ComboBox1. Heller ikke hvis jeg prøver med andet end DRIVE_FIXED.

Nogen der har en ide om hvorfor?

Nevermind.. det hjælper lige at kalde den procedure.. doh! :P

ellers prøv at se lidt på wmi