0
Или просто какие-нибудь вопросы по этому языку...
вот например:
В icq-клиентах есть некоторые дырки (ну не совсем дырки, просто возможности немного его поправить).
Например : можно сделать так, чтобы в рамблер-ICQ замнить ссылки на Рамблер.
вот код на Delphi:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var FOut:TextFile;
begin
AssignFile(FOut, 'C:\Program Files\ICQLite\LiteDataFiles\psearch.xml' ); // xml база, где хранится инфо о ссылках на поиск
Rewrite(FOut); // открываем для записи
Writeln(FOut,' <root><item><use>1</use><tip>Rambler</tip><url>http://www.ya.ru</url>
<bitmap></bitmap><size>16</size><editbitmap>goognew</editbitmap><editsize>76</editsize>
<searchbitmap>googleS</searchbitmap><encodingcodepage></encodingcodepage></item></root>'); // переписываем
CloseFile(FOut); // Закрываем
sleep(10);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Close;
end;
end.
после этого ссылка на рамблер заменится на Яндекс.
есть кнопка "Закрыть", и ещё кое что, для отвода глаз.
Наверх
