Файл ресурсов

[Stanislav]

Ребят всеv спасибочки получилось зделать res только извлечь все-таки не могу может не то использую?

procedure Bmp(var ImageNumber:TImage;ImageName:String );
var //Всякие переменные
MyBitmap:TBitmap;
MyIconsSt:String;
Begin
// ImageNumber – это имя Image куда будет грузиться картинка
// ImageName – собственно имя самой картинки
MyBitmap:= TBitmap.Create;
MyIconsSt:=ImageName;
MyBitmap.Handle:=LoadBitmap(hInstan ce,PChar(MyIconsSt));
ImageNumber.Picture.Bitmap:=MyBitma p;
MyBitmap.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Bmp(Image1,’BITMAP1′);
end;

[SERG1980]

Попробуй вот так

procedure Bmp(var ImageNumber:TImage;ImageName:String );
var //всякие переменные
MyBitmap:TBitmap;
MyIconsSt:String;
Begin
MyBitmap:= TBitmap.Create;
MyIconsSt:=ImageName;//возможно эту строку можно убрать и использовать ImageName
MyBitmap.LoadFromResourceName(hInst ance,MyIconsSt);
ImageNumber.Picture.Bitmap:=MyBitma p;
MyBitmap.Free;
end;