Форум: "Основная";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];
Вниз
Как сделать autorun в Делфи? Найти похожие ветки
← →
Dekabrist (2002-11-03 23:21) [0]Собственно вопрос прозвучал в заголовке. Помогите новичку в мире программирования!
← →
Юрий Зотов (2002-11-03 23:32) [1]Для CD имеется в виду? Или для трояна?
Вы уж уточните, пожалуйста, какой ответ Вам нужен.
← →
Dekabrist (2002-11-04 13:28) [2]Всяко Для cd. Можно и для тряна, но как то пока этим не занимаюсь. Может быть потом...
← →
Ru (2002-11-04 13:37) [3]пиши autoran.inf на любом музыкальном компакте есть или на игровом пример.
этот авторан будет запускать твой ехе который будет автораном.
← →
F1 (2002-11-04 13:47) [4]Смотри Autorun.inf на любом CD с автозапуском, и делай по тлму же принципу, а на чем писать разницы нет, это ведь обычная програмка.
← →
Dekabrist (2002-11-05 16:13) [5]Дык прикол то в том, что я незнаю как авторан на Делфи сделать .. Как сделать так штоба он запустилсято я знаю.(в смысле про inf).
← →
F1 (2002-11-05 16:18) [6]Ну тогда ты бы еще спросил как на Делфи программу написать :(
Ручками!!!
← →
Incognito (2002-11-05 16:20) [7]Чего Вам в CD-AutoRune не понятно, я не понял.
Для трояна если, то так:
var
AutoRun : TRegIniFile;
begin
ExePath:=Application.ExeName;
{AutoRun:=TRegIniFile.Create("Software\Microsoft\Windows\CurrentVersion");
AutoRun.WriteString("Run","Trojan",ExePath);
AutoRun.Free;
← →
F1 (2002-11-05 16:21) [8]А вообще что именно-то непонятно???
И что ты подразумеваешь под словом авторан???
Поставь вопрос более корректно и точно, и тебе обязательно ответят!!!
← →
Alex4444444444 (2002-11-05 17:13) [9]autorun.inf - prosto textovyj file, delphi zdes" ne pri chem.
V nem ukazana programma (na CD!), kotoruyu nuzhno zapustit".
Eto---lyubaya programma, napisannaya na chem ugodno (v t.ch., na Delphi) i delayushaya to, chto Vy hotite.
← →
TuZ (2002-11-05 17:58) [10]При записи на CD записываешь файл autorun.inf, в котором прописываешь 3 строчки:
[autorun]
open=\Директория\ТвояПрограмма.exe
icon=ИмяФайлаЗначка.ico,
где Директория - путь к твоему файлу на CD;
ИмяФайлаЗначка - файл, в котором содержится значок: этот значок будет иконкой этого CD.
Нету тута больших сложностей...
← →
drpass (2002-11-05 18:34) [11]>Dekabrist
Авторан - это самая обычная программа. Какую программу ты напишешь и кинешь на компакт (и укажешь в autorun.inf), такой авторан и будет. Ты программы не умеешь писать, или что?
← →
Dekabrist (2002-11-06 19:14) [12]Мда...я здесь себя идиотом чувствую. НЕумею я делать программы на Делфи. Вот и раздобыл его (Д) штоб научиться. Думал что мож ето не так сложно. В смысле мнеб САМЫЙ ПРОСТОЙ. Я даже ФОРМУ немогу сделать. делаю её, а кнопки [x] и [] не исчезают и ОК , и ОТМЕНА неработают блин... Паскаля плохо знаю.
← →
Евген (2002-11-06 19:32) [13]Дак я не пойму в чем проблема? Про сам файл на CD который запустит твою прогу очень полно написал
> TuZ ©
, а текст твоей проги, которая, например будет запускать произвольные файлы при нажатии на кнопку может быть примерно такой:
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ShellApi;
type
TShell = class(TForm)
ButtonMap: TButton;
ButtonVisio: TButton;
Memo1: TMemo;
Memo2: TMemo;
procedure ButtonMapClick(Sender: TObject);
procedure ButtonVisioClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Shell: TShell;
implementation
{$R *.dfm}
procedure TShell.ButtonMapClick(Sender: TObject);
begin
ShellExecute(Application.MainForm.Handle, nil, Pchar("vcmurbas.new\VCMURBAS.EXE"), nil, nil, SW_ShowNormal);
end;
procedure TShell.ButtonVisioClick(Sender: TObject);
begin
ShellExecute(Application.MainForm.Handle, nil, Pchar("CAD""s\Shell.exe"), nil, nil, SW_ShowNormal);
end;
end.
Если и так непонятно - тогда мыль, брошу исходник.
P.S. Удачи в начинаниях!
← →
Dekabrist (2002-11-07 17:35) [14]Большое спасибо!!! Обязательно Замылю.. Иходник тоже интересен.
Вам тоже удачи...в продолжениях!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.008 c
