ээ... ну попобуй так:
var
Icon : TIcon;
ic:byte;
begin
repeat
Icon := TIcon.Create;
ic:=ic+1;
Icon.Handle := ExtractIcon(0, 'icon'+IntToStr(ic)+'.ico', ic);
until FileExists('icon'+IntToStr(ic+1)+'.ico');
Ну ясный пень что какую то фигню написал. Ну если чё додумать можно =DD
|