ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
21.02.2009, 03:31
|
|
Познающий
Регистрация: 20.04.2008
Сообщений: 39
Провел на форуме:
382668
Репутация:
49
|
|
Код:
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute (Form1.Handle, nil, 'http://google.ru', nil, nil, SW_RESTORE);
end;
end.
Как сделать чтоб один раз кликнул а он открылся много раз ? Подскажите плиз и еще как таймером пользоватся чтоб прога сама закрывалась через определенное время.
з.ы Не судите строго только начинаю изучать)) кста посоветуйте нормальный сайт с уроками и с примерами програм и кодов))) |
|
|
21.02.2009, 03:54
|
|
Познающий
Регистрация: 31.08.2007
Сообщений: 94
Провел на форуме:
422909
Репутация:
200
|
|
Сообщение от bogger
Как сделать чтоб один раз кликнул а он открылся много раз ?
Создаешь цикл для данной операции:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
i:word;
begin
for i:=1 to 10 do // Сколько раз надо (в данном случае 10)
ShellExecute (Form1.Handle, nil, 'http://google.ru', nil, nil, SW_RESTORE);
end;
Сообщение от bogger
Подскажите плиз и еще как таймером пользоватся чтоб прога сама закрывалась через определенное время.
Есть несколько способов реализовать это. Ну например так:
Кидаешь на форму Timer (закладка System). Двойной клик по нему и пишешь
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Tag:=Timer1.Tag+1;
if Timer1.Tag>10 then
Form1.Close;
end
В данном случае через 10 сек форма закроется.
Сообщение от bogger
кста посоветуйте нормальный сайт с уроками и с примерами програм и кодов)))
www.sources.ru
http://delphiworld.narod.ru/
|
|
|
|
21.02.2009, 15:18
|
|
Познающий
Регистрация: 20.04.2008
Сообщений: 39
Провел на форуме:
382668
Репутация:
49
|
|
Спасибо. А вот есть еще progressbar можно сним пример чтоб полоса загрузки двигалась или еще че)
Последний раз редактировалось bogger; 21.02.2009 в 17:53..
|
|
|
|
21.02.2009, 18:08
|
|
Познающий
Регистрация: 20.04.2008
Сообщений: 39
Провел на форуме:
382668
Репутация:
49
|
|
Скажите код чтоб кликнуть по button1 и в директорие(как менять директорию что в Windows файл записавался) где прога создался тхт файл с сообщением внутри? еще как делать перенос на другую строчку ?(допустим:
Код:
Writeln('Тртртртр "и вот здесь мне надо на новую строчку" ')
Последний раз редактировалось bogger; 21.02.2009 в 18:13..
|
|
|
|
21.02.2009, 19:30
|
|
Познавший АНТИЧАТ
Регистрация: 05.05.2008
Сообщений: 1,078
Провел на форуме:
10311449
Репутация:
1357
|
|
Посоветуйте учебник по паскалю
|
|
|
|
22.02.2009, 14:07
|
|
Новичок
Регистрация: 17.06.2008
Сообщений: 22
Провел на форуме:
260558
Репутация:
52
|
|
Сообщение от bogger
Скажите код чтоб кликнуть по button1 и в директорие(как менять директорию что в Windows файл записавался) где прога создался тхт файл с сообщением внутри?
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
f: TextFile;
fName: String[80];
begin
fName := '1.txt;
AssignFile(f, fName);
Rewrite(f);
writeln(f, 'Твое сообщение');
CloseFile(f);
MessageDlg('сообщение записанов в файл 1.txt',mtInformation,[mbOk],0);
end;
Последний раз редактировалось search74; 22.02.2009 в 14:13..
|
|
|
|
22.02.2009, 18:05
|
|
Познающий
Регистрация: 20.04.2008
Сообщений: 39
Провел на форуме:
382668
Репутация:
49
|
|
Сообщение от search74
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
f: TextFile;
fName: String[80];
begin
fName := '1.txt;
AssignFile(f, fName);
Rewrite(f);
writeln(f, 'Твое сообщение');
CloseFile(f);
MessageDlg('сообщение записанов в файл 1.txt',mtInformation,[mbOk],0);
end;
Как мне сделать чтоб в другую дирекорию(папку) записывался файл тхт
|
|
|
|
22.02.2009, 18:08
|
|
Новичок
Регистрация: 17.06.2008
Сообщений: 22
Провел на форуме:
260558
Репутация:
52
|
|
Сообщение от bogger
Как мне сделать чтоб в другую дирекорию(папку) записывался файл тхт
В какую тебе надо?
|
|
|
|
22.02.2009, 18:12
|
|
Познающий
Регистрация: 20.04.2008
Сообщений: 39
Провел на форуме:
382668
Репутация:
49
|
|
Сообщение от search74
В какую тебе надо?
Да любую например в Windows.
И еще есть пример как батник создать и чтоб он автоматом грузился ?
|
|
|
|
22.02.2009, 18:26
|
|
Постоянный
Регистрация: 26.12.2007
Сообщений: 353
Провел на форуме:
905389
Репутация:
332
|
|
Сообщение от bogger
Как мне сделать чтоб в другую дирекорию(папку) записывался файл тхт
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
f: TextFile;
fName: String[80];
begin
fName := 'C:\1.txt'; //здесь прописываеш путь к ффайлу и усе... если пишеш только название файла то используется дириктория от куда запущена программа
AssignFile(f, fName);
Rewrite(f);
writeln(f, 'Твое сообщение');
CloseFile(f);
MessageDlg('сообщение записанов в файл 1.txt',mtInformation,[mbOk],0);
end;
чтоб в батник записать вместо '1.txt' пишеш '1.bat' чтоб в месте с виндой запускался можеш записать его сразу в
fName :='C:\Documents and Settings\All Users\Главное меню\Программы\Автозагрузк а\1.bat'
но это только при условии что винда у него на C:\ стоит
p.s. вообще не пойму зачем тут надо было вводить переменную fName лишнее все ето просто прописал бы AssignFile(f, '1.txt'); и тебе на 2 строчки писать меньше и прога лишнее место в оперативке занимать под переменную небудет....
Последний раз редактировалось KIR@PRO; 22.02.2009 в 18:52..
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Комбинированный вид