s.p.a.m Code: procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin showmessage(URL); end;
Кинь пару кнопок и listbox Code: procedure TForm1.Button1Click(Sender: TObject); var D:dword; i,n:integer; begin D:=GetLogicalDrives; i:= 1; n:= Ord('A'); while i > 0 do begin if (D and i) <> 0 then ListBox1.Items.Add(Chr(n)); Inc(n); i:= i SHL 1; End; end; Так мы в listbox выведем все диски, которые у нас есть Code: procedure TForm1.Button2Click(Sender: TObject); var i:integer; Disk: PAnsiChar; SerialNum: dword; VName, FSName: array [0..255] of char; MaxNameL,FSFlags:dword; begin for i:=1 to listbox1.Items.Count-1 do begin Disk:=PChar(listbox1.Items[i]); if GetVolumeInformation(PChar(Disk + ':\'), VName, SizeOf(VName), @SerialNum, MaxNameL, FSFlags, FSName, SizeOf(FSName)) then Showmessage('Диск:'+Disk+#13+'Файловая система: '+FSName +#13+ 'Имя тома: ' + VName + #13+ 'Максимальная длина имени файла: '+IntToStr(MaxNameL)+#13+ 'Флаги фс: '+IntToStr(FSFlags)); end; end; Терь пробежимся по всем дискам, показывая их свойства мессагой. Для определения типа юзаем GetDriveType К примеру Code: {функция определения типа устройства} function GetD(Drive: String): String; var DType : uInt; begin DType := GetDriveType(PChar(Drive)); case DType of 0: Result := Неизвестный'; 1: Result := 'Неверный корневой путь'; Drive_Removable: Result := 'Съемный'; Drive_Fixed: Result := 'Постоянный'; Drive_Remote: Result := 'Внешний'; Drive_CDROM: Result := 'Привод CD'; Drive_RamDisk: Result := 'Диск RAM' else Result := 'хз :)'; end; end; {использование функции} ... Showmessage(GetD('A:\')); ... Не забудь ставить :\ /) или : после буквы диска, синтаксис требует указывать путь к корню данного диска
Help Yvojaemei hakire sorry za russkie english.. podkajete pojalusta , kak ja magu dostat Email , Q polzevatela vmIRCe .. ymina est evo Q account , kak ja magu dostat evo Email ? Blogadaru za pomosh.
Вообщем у меня есть сайт.Я пишу прогу для регистрации на нём.После реги мне нужно авторизоваться на сайте с помощью этой проги, а потом уже будучи залогиненым можно будет совершать всякие действия...но это не так важно.Главное мне нужно сделать регистрацию на сайте.Регистрация с капчёй, страница на которой форма регистрации new_user.php а обработчик реги страница reg.php. Вся проблема в том что для реги должны быть включёнными кукисы, но я с ними ниразу не работал поэтому прошу вашей помощи.Пожалуйста выложите пример работы куков и idhttp. ps в инете ничё не нашел...
s.p.a.m, не тупи , извини конечно , Это тема по Делфи и Паскалю , причём тут PHp и рега на сайте ? О_О
s.p.a.m зас инди уже и так хранит в себе куки. А вообще юзай модуль WinInet - там всё просто и инфы по инету много
Ну тогда мне нужно пример post запроса на инди Всё что я находил в инете не работает. И ещё не важно какая версия инди или нужна 10?
Есть у меня memo и Edit так вот в мемо есть несколько строк, так вот как мне сделать чтобы допустим значение 3 строки в мемо присвоилось едиту? или еще лучше чтб было так: 1 строчка мемо присвоилась 1 едиту, 2 строка 2 едиту, ну и тд. до 10. И еще как ограничить кол-во строчек в мемо до 10. З.Ы. Знаю что тупой вопрос, но я новичек в делфи, перерыл кучу сайтов, но так и не нашел, спасибка с меня =)
Да я так и делал, только он присваивал наоборот, все теперь вроде разобрался нужно было Edit1.Text:=Memo1.Lines[1]
у кого нибудь есть исходник этой программы? Trav2 s59.radikal.ru/i164/0903/66/54e4bab1264f.gif программа была взята из книжки "Delphi Готовые алгоритмы", но сайт на который указывается в книжке уже давно не существует..
Ограничение длины и количества строк компонента Memo http://www.delphisources.ru/pages/faq/base/memo_limits.html
это та книга пропущенная через файнридер, но в книге не описывается вся программа, а только основные процедуры.. меня как раз интересует графический интерфейс, который там не описан..