> Image1.Picture.Icon := GetFileIcon('c:/Help.htm');
Ikke for at blande mig på mærkelige måder, men plejer det ikke at være
sådan, at det der står efter "c:" skal være "\" i stedet for "/" ?
--
- Thomas [blomme@post.com] [
http://www.FlowCode.f2s.com]
Kasper (TSW) <kasper@tsw.dk> skrev i en
nyhedsmeddelelse:994g7e$roc$1@news.inet.tele.dk...
> Hej Niels...
>
> >Men den her virker, og det er testet!
>
> Sorry, men det virker altså stadig ikke her
> Jeg bruger funktionen således her, er det ikke rigtigt? Der sker i hvert
> fald ikke noget (Image1 får ikke noget ikon). Hvad er der mon galt?
>
> function GetFileIcon(FileName: string): TIcon;
> var
> FileInfo: SHFILEINFO;
> begin
> SHGetFileInfo(PChar(FileName), 0, FileInfo, SizeOf(FileInfo),
> SHGFI_ICON or SHGFI_ICONLOCATION);
> Result := TIcon.Create;
> Result.Handle := FileInfo.hIcon;
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> Image1.Picture.Icon := GetFileIcon('c:/Help.htm');
> end;
>
> --
> Med Venlig Hilsen
>
> Kasper (TSW)
>
>
www.tsw.dk - The SoftWare You Need!
>
www.udvikleren.dk - What Programmers Need!
>
>