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

Как сделать всплывающие окно в правом нижнем углу? (Как например у: icq, qip, nod32, каперский, и т.д.)

ps: Не знаю даже что гуглить...

 

Просто форму сделай и все. На ней таймер. В ОнКриейт пропиши, чтоб помешалась в правый нижний угол, но ниже нижней границы экрана. А по таймеру подымай вверх.

 

Как правильно сказал зевс, сделай окно.

Как то делал такую фишку.
Вот пример: http://tdlite.ru/2010/08/28/remindsave/

 

код абсолютно рабочий!
а если он не работает у тебя. значит проблема на твоей стороне!

Code:

function fWSRecv(wHost, wRequest: string):string;
var
hSocket: TSocket;
hHost: PHostEnt;
hAddr: TSockAddrIn;
hTimeout: TTimeVal;
begin

 hSocket := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
 hHost := gethostbyname(PChar(wHost));
 hAddr.sin_family := AF_INET;
 hAddr.sin_port := htons(80);
 hAddr.sin_addr := pinaddr(hHost^.h_addr^)^;
 hTimeout.tv_usec := 0;
 hTimeout.tv_sec := 0;
 setsockopt(hSocket, SOL_SOCKET, SO_RCVTIMEO, @hTimeout, sizeof(ttimeval));
 connect(hSocket, hAddr, SizeOf(hAddr));
 Send(hSocket, wRequest[1], length(wRequest), 0);
 CloseSocket(hSocket);
end;

 

Как закрыть form1, и открыть form2?
Требуется сделать from2 главной, но как?

Если написать:

Code:

Form1.Close;
form2.Show;

То программа закроется, т.к. закрылось главная форма

А если так:

Code:

form2.Show;
Form1.Close;

То первая форма не закроется...

 

мб

Code:

form1.hide;
form2.show;

 

А закрыть не как?

 

мб изменять свойство visible?

 

Project -> Options -> main form

 

А в ходе выполнение кода можно сменить? (Программным способом)

 

Не могу утверждать, но я ни разу не встречал такого способа. Да и подумать - в приложении есть родительская форма. Если ее закрыть - то все приложение закроется.

 

Code:

ShellExecute(0,'open','cmd.exe','/c ipconfig/all ipconfig_all.txt','C:\Windows\system32\',SW_HIDE);

Как вместо ipconfig/all вставить переменную?

 

Code:

'/c '+s+' ipconfig_all.txt'

 

idhttpproxyserver

Доброго времени суток.
есть компонент idhttpproxyserver.
Как сделать так, чтобы в memo отображались все запросые, которые проходили через это прокси?

 

AlexTheC0d3r

hide это и есть visible:=false;

 

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;

Пример:

 

PHP:

ICQClient1.UIN:=111111; // (Номер ICQ)
ICQClient1.Password:='12345'; // Пароль от этого номера


а как например Номер ICQ брать из edit1 и пароль из edit2?

 

Code:

icq_num := StrToInt(Edit1.Text);
icq_pass := StrToInt(Edit2.Text);

 

[Dezzter], зачем пасс в int переводить?

Code:

ICQClient1.UIN:=StrToInt(form1.edit1.text);
ICQClient1.Password:=form1.edit1.text;