Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Delphi и Lazarus

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.307 RSS
←   Март 2006   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.307 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на Delphi


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 400
от 01.03.2006, 12:21

Администратор:Калашников О.А.
В рассылке:Подписчиков: 263, Экспертов: 67
В номере:Вопросов: 2, Ответов: 4

Вопрос № 36048: Здравствуйте, помогите плиз : как сделать так, чтобы если WebBrowser заходил на какую-нибудь страницу, то он бы переходил на другую (или воообще на другой сайт), а потом возвращался обратно!...
Вопрос № 36054: Вчём проблема ? В программе при нажатии на кнопку выбераюца файлы с разширением *.exe и переименовываюца ! Ну должны а тут бадяга какаето создаюца новые а старым всё побаробану 8( Вот код: procedure TForm4.Button1Click(Sender: TO...

Вопрос № 36.048
Здравствуйте, помогите плиз :
как сделать так, чтобы если WebBrowser заходил на какую-нибудь страницу,
то он бы переходил на другую (или воообще на другой сайт), а потом возвращался обратно!
Отправлен: 23.02.2006, 21:00
Вопрос задал: Vic (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Leshiy2006
Здравствуйте, Vic!
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
Sleep(1000);//Чтобы хоть увидеть куда зашел
WebBrowser1.GoBack;
end;
Удачи!

Ответ отправил: Leshiy2006 (статус: 3-ий класс)
Отправлен: 23.02.2006, 22:50

Вопрос № 36.054
Вчём проблема ?
В программе при нажатии на кнопку выбераюца файлы с разширением *.exe
и переименовываюца ! Ну должны а тут бадяга какаето создаюца новые а старым всё побаробану 8(
Вот код:

procedure TForm4.Button1Click(Sender: TObject);
var

F1:TextFile;
Buf: Array [1..65535] Of Char;
File1: string[80];
Name: Array [1..10] of string;
ext: Array [1..3] of string;
bl,client:TSearchRec;
result:integer;
NewName:string;
kill:file;
paset:integer;
begin
button1.Caption:=inttostr (random (8000));

result:= FindFirst ('INF*.exe',faAnyFile,client);
AssignFile(F1,File1);
Rewrite(F1,'INF'+NewName);
closefile (F1);
Name[1]:= inttostr (random(10));
Name[2]:= inttostr (random(10));
Name[3]:= inttostr (random(10));
Name[4]:= inttostr (random(10));
Name[5]:= inttostr (random(10));
Name[6]:= inttostr (random(10));
Name[7]:= inttostr (random(10));
Name[8]:= inttostr (random(10));
Ext [1]:= inttostr (random(10));
Ext [2]:= inttostr (random(10));
Ext [3]:= inttostr (random(10));
NewName:= name[1]+name[2]+name[3]+name[4]+name[5]+name[6]+name[7]+ name[8]+'.'+ext[1]+ext[2]+ext[3];
AssignFile (Kill,'INF'+client.name);
ReName (Kill,'c:INFfiles'+NewName);
ReName (kill,'result');
end;
Отправлен: 24.02.2006, 00:27
Вопрос задал: Tamashev Denis M (статус: 1-ый класс)
Всего ответов: 3
Мини-форум вопроса >>> (сообщений: 3)
Отвечает: Лучников Юрий Владимирович
Здравствуйте, Tamashev Denis M!

А почему бы не воспользоваться функцией RenameFile(FullPath, Backup) ?

FullPath - Полный путь и имя файла, который подлежит переименованию.
Backup - Новое имя файла.


Успехов!

Ответ отправил: Лучников Юрий Владимирович (статус: Студент)
Отправлен: 24.02.2006, 00:42
Оценка за ответ: 4
Комментарий оценки:
ну вопервых я недавно учу Delphi а во вторых программа их ишет ну файлы !!!
Отвечает: sir henry
Здравствуйте, Tamashev Denis M!
Чушь какая-то. Для переименования файла есть простая и удобная функция RenameFile(OldName, NewName): Boolean; - вот ее и используйте.
Var
F: TSearchRec;
Begin
If FindFirst('*.exe', faAnyFile, F)=0 Then
Begin
Rename(F.Name, NewName);
While FindNext(F)=0 Do
Rename(F.Name, NewName);
End;
FindClose(F);
End;
Новое имя NewName будете создавать для каждого переименования отдельно.
Если все равно, какое должно быть имя, то можно воспользоваться функцией WinAPI:
function GetTempFileName(TempPathName, TempPrefixString: PChar; uUnique: UINT; TempFileName: PChar): UINT; stdcall;
которая генерирует уникальное имя для временного файла.
Ответ отправил: sir henry (статус: Академик)
Отправлен: 24.02.2006, 08:47
Оценка за ответ: 5
Комментарий оценки:
Спасибо большое разобрался !
Отвечает: Diman_A
Здравствуйте, Tamashev Denis M!
Как я понял, тебе нужно дать файлу новое имя, причем составленное из случайных чисел. Но для чего столько ерунды и какие-то паскалевские assign и rename? Можно ведь просто переместить файл в ту же директорию, но под другим именем! Готовый исходник смотри в приложении. Да, и еще: для того, чтобы хранить один символ, существует тип Char! Если что непонятно, пиши в мини-форум или на внутреннюю почту.

Приложение:

Ответ отправил: Diman_A (статус: 6-ой класс)
Отправлен: 24.02.2006, 13:11
Оценка за ответ: 5
Комментарий оценки:
ОК !!!
Спасибо !

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Версия системы: 4.16 от 01.03.2006 		Яндекс Rambler's Top100
В избранное