Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Из ресурса в скрытый файл [D7, XP]

Страницы: 1 2 >
Scary © (2008-09-14 15:46:00)
Добрый день. Подскажите мне, пожалуйста, как мне из ресурса своей программы создать скрытый файл (*.ico)

Palladin (2008-09-17 17:51:00) [1]

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

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

Renegat (2008-09-17 17:49:00) [2]
> [21] Scary (17.09.08 17:33)

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

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

> Scary (17.09.08 17:33) [21]

байки

Scary (2008-09-17 17:33:00) [4]
все получилося, только
SetFileAttributes(PChar(файл), FILE_ATTRIBUTE_SYSTEm and FILE_ATTRIBUTE_HIDDEN);не работает, но так SetFileAttributes(PChar(файл), FILE_ATTRIBUTE_HIDDEN and FILE_ATTRIBUTE_SYSTEm);заработало

antonn (2008-09-15 20:52:00) [5]
Удалено модератором

Сергей М. (2008-09-15 20:50:00) [6]
Удалено модератором

antonn (2008-09-15 20:48:00) [7]
Удалено модератором

Palladin (2008-09-15 20:46:00) [8]
ExtractRes('мама','папа','я');

:)

Сергей М. (2008-09-15 20:42:00) [9]

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

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

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

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

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

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

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

Scary (2008-09-15 20:22:00) [11]
что писать в поля
procedure ExtractRes(ResType, ResName, ResNewName : String);
ResType - ?
ResName - ?
ResNewName - это место сохранения

{RASkov} (2008-09-15 16:48:00) [12]
> [12] Skary (15.09.08 14:30)
> Ресурс MR.res содержит FIRST.ico.

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

Skary (2008-09-15 14:30:00) [13]
Ресурс MR.res содержит FIRST.ico. Почему же выбивает ошибку:"Resource FIRST not found"

{RASkov} (2008-09-14 21:56:00) [14]
> [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..... в котором прописан путь к иконке в этой папке... О, как :)

Scary (2008-09-14 21:28:00) [15]
написал я код от 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:07:00) [16]
> Целью этого батника удалить все файлы с корня флэшки

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

{RASkov} (2008-09-14 21:05:00) [17]
> [7] Scary (14.09.08 20:43)

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

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

Scary (2008-09-14 20:43:00) [18]

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

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

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

antonn (2008-09-14 17:15:00) [19]
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);

{RASkov} (2008-09-14 17:02:00) [20]
> [4] Scary (14.09.08 16:34)

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

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »