HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу [Delphi] как программно установить RadMin?
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

[Delphi] как программно установить RadMin?
  #1  
Старый 02.07.2008, 18:05
043nKRuT0y
Участник форума
Регистрация: 31.10.2007
Сообщений: 213
С нами: 9751512

Репутация: 14
Question [Delphi] как программно установить RadMin?
Вообщем есть проект на Delphi7 ... как можна реализовать следующее ? :
- в папке с проектом есть RadMin и ево библиотеки , как скопировать ети файлы в системную папку чтобы радмин загружался вместе с системой ???

Выложите плз код выполняющий ето , при нажатии на кнопку в проекте или чтото в етом роде .
𝕏 Twitter Reddit Telegram Копировать ссылку
 
Ответить с цитированием

  #2  
Старый 03.07.2008, 14:08
De-visible
Banned
Регистрация: 06.01.2008
Сообщений: 904
С нами: 9655526

Репутация: 1821


По умолчанию
Что то я тебя все равно не понял....что тебе нужно...скопировать файлы? в какую папку?
объясни нормально.
 
Ответить с цитированием

  #3  
Старый 03.07.2008, 14:38
Flame of Soul
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
С нами: 9980798

Репутация: 435
Отправить сообщение для Flame of Soul с помощью MSN
По умолчанию
самый простой вариант (сама когдато делала)
1) пишешь свою программу на делфи
2)ставишь инсталятор NSIS
через NSIS указываешь куда какой файл скопировать и какие файлы запускать во время инсталяции
3) пишешь на любом языке скрытый скрипт запуска программ и выбираешь его старт по окончании установки

или можно глупо создать SFX архив через Free Extractor Wizard и внего засовывыешь батник без показа окна в котором прописано все перекопировать их этой подпапки в которую только что все распаковал и записи в реестр. (все прекрасно работает сама выдавала DirectX 9 переделанный в рестораторе за 10 и встраивала туда скрытую установку) только вместо батника был экзешник на асме)
 
Ответить с цитированием

  #4  
Старый 03.07.2008, 18:50
043nKRuT0y
Участник форума
Регистрация: 31.10.2007
Сообщений: 213
С нами: 9751512

Репутация: 14
По умолчанию
та ненужны мне никакие там архивы !
Вопрос простой как через делфи можно скопировать файлы радмина в системную папку допустим при нажатии кнопки "ОК"??? При етом файлы радмина находятся в той же папке что и проект !!!
 
Ответить с цитированием

  #5  
Старый 03.07.2008, 18:58
GROB_T
Участник форума
Регистрация: 03.03.2007
Сообщений: 135
С нами: 10100071

Репутация: 124
По умолчанию
для определения пути к своей папке используй GetCurrentDir, для копирования файлов - CopyFile, путь к систепной папке - с помощью GetSystemDirectory
 
Ответить с цитированием

  #6  
Старый 03.07.2008, 21:29
Flame of Soul
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
С нами: 9980798

Репутация: 435
Отправить сообщение для Flame of Soul с помощью MSN
По умолчанию
Копирование файла:

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); 
 
Ответить с цитированием
Ответ



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как установить в Ipb один пасс для всех юзверей? Nightmarе Уязвимости CMS / форумов 6 21.06.2008 04:19
Полезные советы по Windows. UnDRaux Windows 7 28.05.2008 18:16
Как стать хакером! foreva Болталка 19 12.12.2007 00:12
как установить форум vBulletin ? petrovich-lamer PHP 14 10.06.2005 03:39



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.