autorun.inf

[4444]

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

Добавлю:
Вот сама программа (proga.rar) и исходник (kod.rar)
Вместо моей картинки кидай свою.

Круто! работает так как я и хотел!
слушай, а можно поменять в проге расширение с BMP на JPG, последний гораздо меньше места занимает!

[Air]

Конечно, конвертируй.

Uses JPEG;  
...
Function ConverterJPEGToBMP(JpgImage:TJpegImage):Tbitmap;  
begin  
Result:=TBitmap.Create;  
Result.Assign(JpgImage);  
end;

procedure TForm1.FormCreate(Sender: TObject);
var JPG:TJpegImage;
begin
JPG:=TJpegImage.Create;
jpg.LoadFromFile(<путь>);
Image1.Picture.Bitmap:=ConverterJPEGToBMP(JPG);
end;

И всё.

[4444]

эх... жаль я не программист
но всё равно спасибо!

[Kashp]

Ну или вот держи готовое

[Air]

Вот скомпилировал.
Первым ищет файл picture.bmp
Вторым ищет файл picture1.jpg
Третьим ищет файл picture1.jpeg

[Air]

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

Ну или вот держи готовое

Он у Вас JPEG файлы не ищет

[4444]

Kashp
вот щас работает. здорово

Air
а разве JPG и JPEG не одно и то же? я всё время считал, что JPG - это просто сокращённо от JPEG. я неправ - это разные расширения?

[Air]

Всё верно, просто потом придётся переименовывать файл, а что Вы будете делать если записали CD-R и забыли проверить расширение???
Ой, не ужели... перезапишите... А в заранее (моём) варианте этого не случится (всмысле переименовывать файл не придётся)

[4444]

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

Всё верно, просто потом придётся переименовывать файл, а что Вы будете делать если записали CD-R и забыли проверить расширение???

тоже верно

ЗЫ, с программистами как-то спокойнее они все тонкости в программах знают!

Спасибо!

[SunKnight]

Чет ВЫ ребята тут перемудрили.
Можно все в Image запихнуть, через таймер поставить выключение, а затем от "диверсантов" можно еще UPX`ом запаковать чтоб рисунок не утащили. В конечном итоге получится один ЕХЕшник. При этом в Image ничего конвертировать ненадо.

П.С. Это подхот для не программистов.