ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
26.07.2007, 10:17
|
|
Познающий
Регистрация: 25.07.2007
Сообщений: 35
Провел на форуме:
114032
Репутация:
2
|
|
Сообщение от Joker-jar
Условие выполняется, когда нажимаешь "Нет". Смени <> на =
Ты не думай,что я ламер!!! :-))) Я знаю много языков программирования, в том числе и Паскаль, вот решил и Дельфи подучить для шалости!!!
Проблема не в этом... к сожаленью...
ДА и не работает это, я пробовал он возвращает не то что мы ожидаем...
Там видишь процедура создания формы, а мы ее как бы затыкаем... эта процедура работает если ее вставить не в этой процедуре...
Хым... масло мясляное :-)))
Короче я тоже самое вставил в кнопку и это работает...
Но я уже обошел это... лучше скажи как с подключением к интернет быть... :-)))
Последний раз редактировалось b2mbey; 26.07.2007 в 10:20..
|
|
|
26.07.2007, 11:17
|
|
Участник форума
Регистрация: 27.10.2006
Сообщений: 115
Провел на форуме:
820289
Репутация:
119
|
|
и еще почему не работате вот это
procedure TForm1.FormCreate(Sender: TObject);
begin
If Messagebox(0,'Закроем???','Вопрос',MB _YesNo) <> IDYES Then
Form1.Close;
end;
Даже если вместо Form1.Close; ставлю Exit; не работает...
Если тебе нужен выход по кнопке Да то я б сделал вот так:
procedure TForm1.FormCreate(Sender: TObject);
begin
case Application.MessageBox('Закрыть приложение?','Вопрос:',MB_YesNo + Mb_iconquestion) of
Idyes: form1.Close;
IdNo: showmessage('Не закрываем');
end;
end;
|
|
|
|
26.07.2007, 12:36
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
Провел на форуме:
2360904
Репутация:
1393
|
|
Сообщение от Exile1985
вообщем не знаю какая у тебя ось, для винды хр можно сделать так:
Открываем раздел "HKLM\SYSTEM\CurrentControlSet\Control\
Class\{4D36E972-E325-11CE-BFC1-08002BE10318}"
тут описаны интерфейсы всех имеющихся сетевых адаптеров. Находим нужный нам интерфейс он будет содержать имя сетевой карты.Там где будут тольлко ветки Linkage и Ndi туда не нельзь эт не то что нужно.
Изменяем (добавляем, его может и не быть, тип данных - REG_SZ) ключ "NetworkAddress". Вводим новый адрес.
Отключаем, затем включаем сетку.
ЗЫ чисто теоритически, если не можнешь найти ключ NetworkAddress и куда его пихать тож не особо понятно, попробуй изменить МАС в ручную, по идее этот ключ должен создатся.
Если же нет то просто заюзай поиск по вбитому тобой новому адресу в реестре, далее я думаю не так уж и сложно считать значение ключа и изменить его.
думаю и сам знаешь как это делать но... на всякий случай 
Код:
procedure TForm1.Button4Click(Sender: TObject);
var
REG : TRegistry;
begin
REG := TRegistry.Create;
REG.RootKey:=HKEY_LOCAL_MACHINE;
REG.OpenKey('SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}\000X\.....',true);
REG.WriteString('Test1','C:\\\'); //собственно добавляем ключ
Memo1.lines.text:=REG.ReadString('Test1'); // читаем значение ключа
REG.CloseKey;
REG.Destroy;
end;
пробелы в коде вставляет форум, соответственно убрать Не получается, но я забыл сказать, мак адресс физически ментяь нельзя, а вот виртуально можно, и делается это из настройки сетевухи (диспетчер устройств)
|
|
|
|
26.07.2007, 12:46
|
|
Участник форума
Регистрация: 10.08.2006
Сообщений: 147
Провел на форуме:
404152
Репутация:
94
|
|
Сообщение от z01b
Не получается, но я забыл сказать, мак адресс физически ментяь нельзя, а вот виртуально можно, и делается это из настройки сетевухи (диспетчер устройств)
ну да, реальный МАС адрес вшит в само железо, т.е. в саму сетевуху, а подменить его можно либо в настройках сетевухи либо в реестре, это точно сам когдато давно делал, но если так уж нужно то вечером приду дамой сделаю
|
|
|
|
26.07.2007, 13:52
|
|
Познающий
Регистрация: 25.07.2007
Сообщений: 35
Провел на форуме:
114032
Репутация:
2
|
|
Народ почему вот это не работает:
str := 'C:\1.lnk'
ShellExecute(0, 'explore', Pchar(str), nil, nil, SW_SHOWNORMAL);
WinExec(Pchar(str),SW_SHOWNORMAL);
причем если вместо Pchar(str) поставить 'C:\1.lnk' - это работает!!!
Не пойму... Дельфи глючит???
|
|
|
|
26.07.2007, 13:59
|
|
Новичок
Регистрация: 26.07.2007
Сообщений: 1
Провел на форуме:
1064
Репутация:
0
|
|
При попытке создания базы данных и обращения к программе Database Desktop выдается сообщение: Cannot load language driver
|
|
|
|
26.07.2007, 14:16
|
|
Познающий
Регистрация: 25.07.2007
Сообщений: 35
Провел на форуме:
114032
Репутация:
2
|
|
Сообщение от b2mbey
Народ почему вот это не работает:
str := 'C:\1.lnk'
ShellExecute(0, 'explore', Pchar(str), nil, nil, SW_SHOWNORMAL);
WinExec(Pchar(str),SW_SHOWNORMAL);
причем если вместо Pchar(str) поставить 'C:\1.lnk' - это работает!!!
Не пойму... Дельфи глючит???
Как это ни странно, но вот рабочий вариант:
ShellExecute(0, 'open', Pchar(ListBox1.Items.Strings[i]), nil, Pchar(Form2.DirectoryListBox1.Directory), SW_SHOWNORMAL);
Хотя я тоже мог сразу догадаться  , про парамметр Директория.... хотя с ехе работает, когда явно указываешь ярлык тоже работает и без этого параметра...
Извините за мой русский...
Последний раз редактировалось b2mbey; 26.07.2007 в 14:36..
|
|
|
|
26.07.2007, 14:48
|
|
Познающий
Регистрация: 25.07.2007
Сообщений: 35
Провел на форуме:
114032
Репутация:
2
|
|
И все таки народ... Как определить есть ли подключение к интернету???
|
|
|
|
26.07.2007, 15:24
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
Провел на форуме:
2360904
Репутация:
1393
|
|
Сообщение от b2mbey
И все таки народ... Как определить есть ли подключение к интернету???
пинг к gateway провайдера
|
|
|
|
26.07.2007, 15:29
|
|
Познающий
Регистрация: 25.07.2007
Сообщений: 35
Провел на форуме:
114032
Репутация:
2
|
|
А можно по подробней???
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
