[Gareth]

Сообщение от icWasya

Как-то так

Делаю так

Код:

begin

 if S='' then
 begin
   sOpenDialog1.Execute;
   S:=sOpenDialog1.FileName;
 if S='' then
 begin
 ShowMessage('Не выбрал');
 end
 else
  h := ExtractAssociatedIcon(hInstance,PChar(S), IconINdex);
   Ico:=TIcon.Create();
  Ico.Handle:=H;
 sBitBtn1.Glyph:=ico;
  Ico.Free;
 end
 else
ShellExecute (Form1.Handle, nil, PChar(S), nil, nil, SW_RESTORE)}
  end;

Ругается на Incompatible types: 'TBitmap' and 'TIcon' (15 строка)