system-ikoner

Det ved jeg nu ikke, men ville det ikke være nemmere at ligge dem ind i programmet og så bruge dem der er hentet.

Download evt. nogle fra nettet.

/Kallesen

Jeg skal bruge dem til en filliste, og vil gerne have de ikoner der er default i systemet.
Disse kan jo variere fra maskine til maskine.

http://www.swissdelphicenter.ch/en/showcode.php?id=138

jeg fandt jeg skulle bruge på swissdelphicenter.ch, så jeg takker stone
Skriv igen for point

takker...

Selv tak

Jeg kan noget sjovere :

procedure TForm1.Button1Click(Sender: TObject);
var
  SFI: TSHFileInfo;
  Image: TIcon;
  SysIL: HImageList;
  i: Integer;
begin
  SysIL := SHGetFileInfo('', 0, SFI, SizeOf(SFI), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);

  if SysIL <> 0 then
  begin
    with SysImages do
    begin
      Width := GetSystemMetrics(SM_CXSMICON);
      Height := GetSystemMetrics(SM_CYSMICON);
      Handle := SysIL;
      ShareImages := True; // DON'T FREE THE SYSTEM IMAGE LIST! BAD IDEA (tm)!
    end;
    ICon := TIcon.Create;
    for i := 0 to SysImages.Count -1 do
    begin
      SysImages.GetIcon(i, Image);
      Image.SaveToFile('Hest' + INtToStr(i) + '.ico');
    end;

    FreeAndNil(Image);
  end;
end;

stone >> Skylder du ikke et svar på en mail ?

Jens B

øh... hvad for en mail?

//stone

Den mail omkring tråde .. Virker det ?

Skrevet Lørdag 21-11-2003 klokken 15:08

Jens B

Det må være mig du mener Jens.

Mit og Stone's navn er næsten også ens her på Eksperten.
Jeg er en af de 13.000 fæ-nakker der glemte at betale for mit domæne. Derfor har jeg ikke kunnet maile til dig.
Men det skulle være oppe at køre igen inden for 24 timer.
Jeg skal nok maile til dig når mit domæne er oppe at køre igen.

Stoney