Из ресурса в скрытый файл

← →
Scary (2008-09-14 15:46) [0]

Добрый день. Подскажите мне, пожалуйста, как мне из ресурса своей программы создать скрытый файл (*.ico)

← →
{RASkov} © (2008-09-14 15:59) [1]

новый авторан делаем? :)

← →
KilkennyCat © (2008-09-14 16:01) [2]

берем ресур, переименовываем в *.ico и устанавливаем атрибуты

← →
Сергей М. © (2008-09-14 16:01) [3]

> Scary (14.09.08 15:46)

Надо написать программу.

← →
Scary (2008-09-14 16:34) [4]

> новый авторан делаем? :)

да

← →
{RASkov} © (2008-09-14 17:02) [5]

> [4] Scary (14.09.08 16:34)

Я только что сейчас с одним боролся.... запарили уже, ублюдки.)
Давай завязывай уже с этим.... все равно это бестолковая фигня и хорошего она тебе ничего не принесет, только будешь просто ублюдком и всё :)
ЗЫ: Гы... надеюсь автор вирус пишет иначе наезд неоправдан)

← →
antonn © (2008-09-14 17:15) [6]

procedure ExtractRes(ResType, ResName, ResNewName : String); var Res : TResourceStream; begin Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType)); Res.SavetoFile(ResNewName); Res.Free; end; + SetFileAttributes(PChar(файл), FILE_ATTRIBUTE_SYSTEm and FILE_ATTRIBUTE_HIDDEN);

← →
Scary (2008-09-14 20:43) [7]

> ЗЫ: Гы... надеюсь автор вирус пишет иначе наезд неоправдан)

наезд, конечно, неоправдан. Я пишу простую программу, которая изменяет іконку флешки.

а antonn © большое спасибо, счас попробую

← →
{RASkov} © (2008-09-14 21:05) [8]

> [7] Scary (14.09.08 20:43)

А зачем тогда скрывать что-то?)
Ну сорри, что наехал может быть почем зря :)
Я, кстати, сделал для себя просто батничек на флэшке...(могу сюда код батника скинуть, если нужно)....
Целью этого батника удалить все файлы с корня флэшки и восстановления ауторана.инф и иконки(т.е. икона прописана в авторане, а лежит на флешке в определенном месте всегда) и после заражения лечу флешку простым запуском данного батника. Это скорая помощь, ну а потом полная проверка нодом :)

А твой авторан быстренько "затрется" вирусами и все равно тебе придется "вручки" запускать свой "новый авторан"... так что... :)

← →
{RASkov} © (2008-09-14 21:07) [9]

> Целью этого батника удалить все файлы с корня флэшки

Всё верно, ВСЕ. Просто я решил из-за вирусов и такого метода[8] с ними борьбы, не хранить файлы в корне флэшки и никаких проблем :)

← →
Scary (2008-09-14 21:28) [10]

написал я код от antonn ©, но выбивает ошибку:"Resource FIRST not found", хотя я подключил файл ресурса:
implementation {$R *.dfm} {$R MR.res} procedure ExtractRes(ResType, ResName, ResNewName : String); var Res : TResourceStream; begin Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType)); Res.SavetoFile(ResNewName); Res.Free; end; procedure TForm1.Button1Click(Sender: TObject); begin ExtractRes("Icon","FIRST","F:\1.ico"); end;

> Я, кстати, сделал для себя просто батничек на флэшке...(могу
> сюда код батника скинуть, если нужно)....

а на щет батника, то скиньте, пожалуста.

← →
{RASkov} © (2008-09-14 21:56) [11]

> [10] Scary (14.09.08 21:28)
> выбивает ошибку:"Resource FIRST not found"

Не найден ресур FIRST.

> а на щет батника, то скиньте, пожалуста.

@Cd ..\..\ @set Proc="N" @set /p Proc=Press Y and Enter for begin delete ALL file from %CD% : @if not "%Proc%"=="Y" if not "%Proc%"=="y" goto :EOF @for /f "delims==" %%i in ("DIR *.* /a:-d /b") do ( @ATTRIB -r -a -s -h "%%~fi" @DEL "%%~fi" ) @if exist autorun.inf attrib -R -A -S -H autorun.inf @copy .\SYSTEM\ARun\_autorun.inf autorun.inf
Только будте аккуратны с ним :) И просто копировать его не нужно, так как пути...
Поясняю: Есть на флэшке папка SYSTEM а в ней папка ARun в которой лежит данный батник, иконка и копия(или оригинал:)) авторана.инф с именем _autorun.inf..... в котором прописан путь к иконке в этой папке... О, как :)

← →
Skary (2008-09-15 14:30) [12]

Ресурс MR.res содержит FIRST.ico. Почему же выбивает ошибку:"Resource FIRST not found"

← →
{RASkov} © (2008-09-15 16:48) [13]

> [12] Skary (15.09.08 14:30)
> Ресурс MR.res содержит FIRST.ico.

А имя ресурса какое? Имя файла в ресурсе - это одно, а имя самого ресурса содержащего файл - другое.

← →
Scary (2008-09-15 20:22) [14]

что писать в поля
procedure ExtractRes(ResType, ResName, ResNewName : String);
ResType - ?
ResName - ?
ResNewName - это место сохранения

← →
Правильный$Вася (2008-09-15 20:29) [15]

> что писать в поляprocedure ExtractRes(ResType, ResName,
> ResNewName : String);ResType - ?ResName - ?

> TResourceStream.Create(Hinstance, Resname, Pchar(ResType))+ F1

← →
Сергей М. © (2008-09-15 20:42) [16]

> Почему же выбивает ошибку

Выбивают обычно чечетку, а не ошибку)

> что писать в поля

Ну начинается - "дай г..на, дай ложку") ..

← →
Palladin © (2008-09-15 20:46) [17]

ExtractRes("мама","папа","я");

:)

Удалено модератором

← →
Scary (2008-09-17 17:33) [21]

все получилося, только
SetFileAttributes(PChar(файл), FILE_ATTRIBUTE_SYSTEm and FILE_ATTRIBUTE_HIDDEN); не работает, но так SetFileAttributes(PChar(файл), FILE_ATTRIBUTE_HIDDEN and FILE_ATTRIBUTE_SYSTEm); заработало

← →
Правильный$Вася (2008-09-17 17:39) [22]

> Scary (17.09.08 17:33) [21]

байки

> [21] Scary (17.09.08 17:33)

Эммм.. а с каких это пор логическое умножение стало некоммутативным?! Я что-то пропустил в своей жизни? :)

> Renegat © (17.09.08 17:49) [23]

я думаю, товарищ фразу "логическое умножение стало некоммутативным" абсолютно не понял :) так же как и что есть and и чем он отличается от or :)

Из ресурса в скрытый файл Найти похожие ветки