[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

s.p.a.m

Code:

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
showmessage(URL);
end;

 

ZET36 , спасибо!

 

Кинь пару кнопок и 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?

 

дело в том, что до настоящего момента IdHTTP был компонентом Delphi

 

Есть у меня memo и Edit так вот в мемо есть несколько строк, так вот как мне сделать чтобы допустим значение 3 строки в мемо присвоилось едиту? или еще лучше чтб было так: 1 строчка мемо присвоилась 1 едиту, 2 строка 2 едиту, ну и тд. до 10. И еще как ограничить кол-во строчек в мемо до 10.
З.Ы. Знаю что тупой вопрос, но я новичек в делфи, перерыл кучу сайтов, но так и не нашел, спасибка с меня =)

 

Если бы ты хоть че то порыл то сразу бы нашел ответ, а вообще

memo1.lines[n]:=editn;

 

Да я так и делал, только он присваивал наоборот, все теперь вроде разобрался нужно было
Edit1.Text:=Memo1.Lines[1]

 

Пожалусто, подскажите ХОРОШИЙ учебник delfi чтобы научится делать ВИРИ И ТРОЯНЫ

 

Code:

for i:=1 to 10 do
memo1.Lines.Strings[i] := (FindComponent('edit'+inttostr(i)) as TEdit).Text;

 

у кого нибудь есть исходник этой программы? Trav2

s59.radikal.ru/i164/0903/66/54e4bab1264f.gif

программа была взята из книжки "Delphi Готовые алгоритмы", но сайт на который указывается в книжке уже давно не существует..

 

1) не "delfi" а "delphi"
2) нету таких. сперва на паскале напиши несколько программ

 

http://delphialg.info/index.php?modtel=06-delphialg&nomerstr=0001

 

Вопрос все еще остается в силе

 

Ограничение длины и количества строк компонента Memo
http://www.delphisources.ru/pages/faq/base/memo_limits.html

 

это та книга пропущенная через файнридер, но в книге не описывается вся программа, а только основные процедуры.. меня как раз интересует графический интерфейс, который там не описан..