Отправляет email-рассылки с помощью сервиса Sendsay

KLSoft company - программирование в Delphi и PHP

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Веб-разработка: пособие начинающим" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Январь 2005   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
12.01.2005
10:14:22
10:16:41
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
ADMIN

Статистика

989 подписчиков
0 за неделю
←   Все выпуски   →

X-Program ПО, новости сайта и программирование в Delphi7


Информационный Канал Subscribe.Ru

Рассылка компании "X-program"
Delphi7
Выпуск 34
По нашему сайту...

Главная
Скачать
ScreenSchots
Поддержка
Гостевая
Форум по Delphi
По нашей рассылке...

Вопросы подписчиков
Отладка программ
ISQ
IE
Сеть
CD-ROM

Новости

В MagDate TheEnd уже готова системма настройки дизайна. Настроить можно буквально всё! Примерная дата выхода программы 31.01.2005 Напишите нам что бы вы хотели увидеть в MagDate TheEnd. Написать

Вопросы

#1 Анатолий

I) Как программно (видимо, используя API) щелкнуть по TGauge [Gauges]
а) левой кнопкой мыши для выполнения OnClick;
б) правой кнопкой мыши для раскрытия PopupMenu с выбором возможных пунктов.
II) Раскажите про кнопку "Пуск" в ХР. В плане - в каком файле находится, из каких составных
частей состоит (вероятно надпись и картинка - это части), можно ли изменить фон цвета
самой кнопки.

#2 Mcir

Здравствуйте, X-Program.
1-Предположим, что у меня в проекте две формы (Form1 и Form2).Как сделать, чтобы они открывались в одном и том же окне?
2-Как сделать кнопку ссылкой на какой-то файл или папку?
3-Как запретить изменение размера окна?

#3Сазори

Здравствуйте! Где в интернете можно скачать стандартный набор Delphi7 и сколько он весит (в MB, конечно)?!


Ответы

Ответы на вопрос #2

DENIS

2. Чтобы сделать ссылку на директорию надо во-первых в uses добавить ShellAPI и написать следующее:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Application.Handle,'open','c:\\',nil,nil,SW_SHOWDEFAULT);
end;

чтобы сделать ссылку на файл, то же самое, но в этом случае файл откроется в приложении, с которым стоит ассоциация расширения:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Application.Handle,'open','c:\\1.txt',nil,nil,SW_SHOWDEFAULT);
end;

3. Чтобы у окна нельзя было изменить размеры, достаточно вытавить параметр у формы
BorderStyle - bsSingle или программно BorderStyle:=bsSingle

Андрей Е.

3. Form.BorderStyle:=bsSingle;

X-Program

Привет!
Отвечаю на первую часть вопроса.
Значит есть две формы Form1 и Form2. Создаём ещё одну форму, допустим Form3. Где-нибудь пишем
Form1.Parent:=Form3;
Form2.Parent:=Form3;
Всё. Form1 и Form2 окажутся внутри Form3.

function DebuggerPresent: boolean;
type
TDebugProc = function: boolean; stdcall;
var
Kernel32: HMODULE;
DebugProc: TDebugProc;
begin
Result := false;
Kernel32 := GetModuleHandle('kernel32.dll');
if kernel32 <> 0 then
begin
@DebugProc := GetProcAddress(kernel32, 'IsDebuggerPresent');
if Assigned(DebugProc) then
Result := DebugProc;
end;
end;

{
You need 3 TEdits, 1 TMemo und 1 TClientSocket.
Set the TClientsocket's Port to 80 and the Host to wwp.mirabilis.com.
}

var
Form1: TForm1;
csend: string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
cSend := 'POST http://wwp.icq.com/scripts/WWPMsg.dll HTTP/2.0' + chr(13) + chr(10);
cSend := cSend + 'Referer: http://wwp.mirabilis.com' + chr(13) + chr(10);
cSend := cSend + 'User-Agent: Mozilla/4.06 (Win95; I)' + chr(13) + chr(10);
cSend := cSend + 'Connection: Keep-Alive' + chr(13) + chr(10);
cSend := cSend + 'Host: wwp.mirabilis.com:80' + chr(13) + chr(10);
cSend := cSend + 'Content-type: application/x-www-form-urlencoded' + chr(13) + chr(10);
cSend := cSend + 'Content-length:8000' + chr(13) + chr(10);
cSend := cSend + 'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*' +
chr(13) + chr(10) + chr(13) + chr(10);
cSend := cSend + 'from=' + edit1.Text + ' &fromemail=' + edit2.Text +
' &fromicq:110206786' + ' &body=' + memo1.Text + ' &to=' + edit3.Text + '&Send=';
clientsocket1.Active := True;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
clientsocket1.Socket.SendText(csend);
clientsocket1.Active := False;
end;

uses windows, ddeman, ......

function Get_URL(Servicio: string): String;
uses windows, ddeman, ......

function Get_URL(Servicio: string): String;
var
Cliente_DDE: TDDEClientConv;
temp:PChar;
begin
Result := '';
Cliente_DDE:= TDDEClientConv.Create( nil );
with Cliente_DDE do
begin
SetLink( Servicio,'WWW_GetWindowInfo');
temp := RequestData('0xFFFFFFFF');
Result := StrPas(temp);
StrDispose(temp); //<<-Предотвращаем утечку памяти
CloseLink;
end;
Cliente_DDE.Free;
end;

procedure TForm1.Button1Click(Sender);
begin
showmessage(Get_URL('Netscape'));
или
showmessage(Get_URL('IExplore'));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if GetSystemMetrics(SM_NETWORK) and $01 = $01 then
ShowMessage('Computer is attached to a network!')
else
ShowMessage('Computer is not attached to a network!');
end;

function GetCDIcon(Drive: Char): TIcon;
var
ico: TIcon;
ini: TIniFile;
s, p: string;
i, j: Integer;
begin
//Abbrechen wenn "AutoRun.Inf" nicht existiert.
//Abort if "AutoRun.inf" doesn't exists.
if FileExists(Drive + ':\autorun.inf') = False then Exit;

//"AutoRun.inf" offnen
//Opens the "AutoRun.inf"
ini := TIniFile.Create(Drive + ':\autorun.inf');
ico := TIcon.Create;

try
//Dateinamen lesen
//Read the filename
s := ini.ReadString('Autorun', 'ICON', '');

//Abbrechen, wenn kein Icon festgelegt wurde
//Abort if there is no icon specified
if s = '' then Exit;

//Icon von Datei laden
//load the icon from a file
if FileExists(s) then ico.LoadFromFile(s);
if FileExists(Drive + ':\' + s) then ico.LoadFromFile(Drive + ':\' + s);

//Icon aus einer Resource laden
//Load the icon from a Win32 resource
if (FileExists(s) = False) and (FileExists(Drive + ':\' + s) = False) then
begin
for j := (Pos(',', s) + 1) to Length(s) do
begin
p := p + s[j];
end;
i := StrToInt(p);
for j := Length(s) downto (Pos(',', s)) do
Delete(s, j, Length(s));

if FileExists(s) = False then s := Drive + ':\' + s;

ico.Handle := ExtractIcon(hinstance, PChar(s), i);
end;

Result := ico;
finally
ini.Free;
end;
end;

Товарищи программисты давайте задавать вопросы в форуме. Мы проверяем его каждый день.
Присылайте свои вопросы и ответа нам на X-Program@mail.ru
http://subscribe.ru/
http://subscribe.ru/feedback/		 Подписан адрес:
Код этой рассылки: comp.soft.prog.program		 Отписаться
В избранное