Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
[Delphi] как программно установить RadMin? |
02.07.2008, 18:05
|
|
Участник форума
Регистрация: 31.10.2007
Сообщений: 213
Провел на форуме:
394522
Репутация:
14
|
|
[Delphi] как программно установить RadMin?
Вообщем есть проект на Delphi7 ... как можна реализовать следующее ? :
- в папке с проектом есть RadMin и ево библиотеки , как скопировать ети файлы в системную папку чтобы радмин загружался вместе с системой ???
Выложите плз код выполняющий ето , при нажатии на кнопку в проекте или чтото в етом роде .
|
|
|
03.07.2008, 14:08
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Что то я тебя все равно не понял....что тебе нужно...скопировать файлы? в какую папку?
объясни нормально.
|
|
|
|
03.07.2008, 14:38
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
Провел на форуме:
1740746
Репутация:
435
|
|
самый простой вариант (сама когдато делала)
1) пишешь свою программу на делфи
2)ставишь инсталятор NSIS
через NSIS указываешь куда какой файл скопировать и какие файлы запускать во время инсталяции
3) пишешь на любом языке скрытый скрипт запуска программ и выбираешь его старт по окончании установки
или можно глупо создать SFX архив через Free Extractor Wizard и внего засовывыешь батник без показа окна в котором прописано все перекопировать их этой подпапки в которую только что все распаковал и записи в реестр. (все прекрасно работает сама выдавала DirectX 9 переделанный в рестораторе за 10 и встраивала туда скрытую установку) только вместо батника был экзешник на асме)
|
|
|
|
03.07.2008, 18:50
|
|
Участник форума
Регистрация: 31.10.2007
Сообщений: 213
Провел на форуме:
394522
Репутация:
14
|
|
та ненужны мне никакие там архивы !
Вопрос простой как через делфи можно скопировать файлы радмина в системную папку допустим при нажатии кнопки "ОК"??? При етом файлы радмина находятся в той же папке что и проект !!!
|
|
|
|
03.07.2008, 18:58
|
|
Участник форума
Регистрация: 03.03.2007
Сообщений: 135
Провел на форуме:
833374
Репутация:
124
|
|
для определения пути к своей папке используй GetCurrentDir, для копирования файлов - CopyFile, путь к систепной папке - с помощью GetSystemDirectory
|
|
|
|
03.07.2008, 21:29
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
Провел на форуме:
1740746
Репутация:
435
|
|
Копирование файла:
PHP код:
procedure CopyFile(Source, Dest: string);
var
SrcFile: Integer;
DestFile: Integer;
S: string;
RetCode: Longint;
OpenFileBuf: TOFStruct;
FName: array[0..255] of Char;
begin
StrPCopy(FName, Source);
SrcFile := LZOpenFile(FName, OpenFileBuf, of_Read);
StrPCopy(FName, Dest);
DestFile := LZOpenFile(FName, OpenFileBuf, of_Create);
RetCode := LZCopy(SrcFile, DestFile);
if RetCode >= 0 then
begin
LZClose(SrcFile);
LZClose(DestFile);
end
else
begin
Str(RetCode, S);
MessageDlg('Не могу скопировать ' + Source + ' в ' +
Dest + #13 + 'Код ошибки = ' + S, mtError, [mbOk], 0);
end;
end;
Системная директория:
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
var
Windir: string;
WindirP: PChar;
Res: Cardinal;
begin
WinDirP := StrAlloc(MAX_PATH);
Res := GetWindowsDirectory(WinDirP, MAX_PATH);
if Res > 0 then
WinDir := StrPas(WinDirP);
Label1.Caption := WinDir;
end;
Путь до экзешника (непродуманно сделанно)
PHP код:
Label1.Caption:=LeftStr(Application.ExeName,length(Application.ExeName)-length(Application.Title)-4);
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
