09.02.2010, 00:05
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
С нами:
9626394
Репутация:
357
|
|
Сообщение от [stranger]
Project -> Options -> main form
А в ходе выполнение кода можно сменить? (Программным способом)
|
|
|
09.02.2010, 00:16
|
|
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
С нами:
8817310
Репутация:
108
|
|
Сообщение от НTL
А в ходе выполнение кода можно сменить? (Программным способом)
Не могу утверждать, но я ни разу не встречал такого способа. Да и подумать - в приложении есть родительская форма. Если ее закрыть - то все приложение закроется.
|
|
|
|
09.02.2010, 02:44
|
|
Новичок
Регистрация: 03.08.2009
Сообщений: 21
С нами:
8827483
Репутация:
2
|
|
Код:
ShellExecute(0,'open','cmd.exe','/c ipconfig/all ipconfig_all.txt','C:\Windows\system32\',SW_HIDE);
Как вместо ipconfig/all вставить переменную?  |
|
|
|
09.02.2010, 07:23
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
С нами:
9626394
Репутация:
357
|
|
Сообщение от Андрей021
Код:
ShellExecute(0,'open','cmd.exe','/c ipconfig/all ipconfig_all.txt','C:\Windows\system32\',SW_HIDE);
Как вместо ipconfig/all вставить переменную?
Код:
'/c '+s+' ipconfig_all.txt'
|
|
|
|
09.02.2010, 13:48
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
С нами:
10653446
Репутация:
836
|
|
AlexTheC0d3r
hide это и есть visible:=false;
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
09.02.2010, 14:40
|
|
Познающий
Регистрация: 15.03.2009
Сообщений: 87
С нами:
9030319
Репутация:
34
|
|
PHP код:
procedure TForm4.Button2Click(Sender: TObject);
var StrPage, ssylka:string;
Data:TstringList;
begin
idhttp1.HandleRedirects:=true;
StrPage:=idhttp1.Get('http://ya.ru);
StrPage:=idhttp1.Post(ssylka, Data);
Memo2.Lines.Text := StrPage;
Data.Free;
Как допустим получить в label1 то что находится в скобках <title> НУЖНО ЧТОБ ЭТОТ ТЕКСТ ВЫВЕЛО В MEMO1</title>
Последний раз редактировалось 090808; 09.02.2010 в 14:42..
|
|
|
|
09.02.2010, 16:12
|
|
Участник форума
Регистрация: 20.04.2007
Сообщений: 174
С нами:
10030823
Репутация:
149
|
|
Сообщение от 090808
PHP код:
procedure TForm4.Button2Click(Sender: TObject);
var StrPage, ssylka:string;
Data:TstringList;
begin
idhttp1.HandleRedirects:=true;
StrPage:=idhttp1.Get('http://ya.ru);
StrPage:=idhttp1.Post(ssylka, Data);
Memo2.Lines.Text := StrPage;
Data.Free;
Как допустим получить в label1 то что находится в скобках <title> НУЖНО ЧТОБ ЭТОТ ТЕКСТ ВЫВЕЛО В MEMO1</title>
PHP код:
function fWSCut(wData, wStart, wEnd: string):string;
var
wOutData, wDelete: string;
begin
wOutData := StrPos(PChar(wData), PChar(wStart));
Delete(wOutData, 1, Length(wStart));
wDelete := StrPos(PChar(wOutData), PChar(wEnd));
Delete(wData, 1, Length(wData)-Length(wDelete));
Delete(wOutData, Length(wOutData) - Length(wDelete) + 1, Length(wDelete));
result := wOutData;
end;
Пример:
Memo2.Lines.Text := fWSCut(StrPage, '<title>', '</title>');
|
|
|
|
11.02.2010, 16:33
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
Подскажите пожалуйста как програмно (через Delphi) включить микрофон?
Например по умолчанию там стоит галочка Выкл.
Как её включить? Нигде пример реализации найти не могу.
|
|
|
|
11.02.2010, 17:41
|
|
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
С нами:
8817310
Репутация:
108
|
|
Сообщение от Nightmarе
Подскажите пожалуйста как програмно (через Delphi) включить микрофон?
Например по умолчанию там стоит галочка Выкл.
Как её включить? Нигде пример реализации найти не могу.
Slesh когда-то писал "MicSpy". Типа прослушка через микрофон. Поищи по форуму, может тебе поможет. Там вроде были исходы, а может и нет...
|
|
|
|
11.02.2010, 17:59
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
я про прослушку спрашивал?
|
|
|
|
|
 |
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 6 (пользователей: 0 , гостей: 6)
|
|
|
|
Похожие темы
Комбинированный вид
