Форум: "Система";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
ВнизКак переделать или что добавить в прогу, чтобы она работала на 2000 проф. и не требовала ntdll.dll, исходники есть. Найти похожие ветки
← →
Filat (2002-01-10 16:41) [8]О! спасибо кое что начал понимать. Ситуация следующая, сначала появляется RxLoginDialog, Enter, и при загрузке главной формы выдаётся сообщение. Вот код:
procedure TFrm1.FormStorage1RestorePlacement(Sender: TObject);
begin
FormStorage1.IniFile.ReadString("Form","","");
end;
procedure TFrm1.FormStorage1SavePlacement(Sender: TObject);
begin
FormStorage1.IniFile.WriteString("Form","","");
end;
procedure TFrm1.SpeedItem5Click(Sender: TObject);
begin
Frm1.Close;
end;
procedure TFrm1.AppMinimize(Sender: TObject);
begin
{$IFDEF WIN32}
if NewStyleControls then ShowWindow(Application.Handle, SW_HIDE);
{$ENDIF}
end;
procedure TFrm1.RxTrayIcon1DblClick(Sender: TObject);
begin
Application.Restore;
Application.BringToFront;
end;
procedure TFrm1.WMSYSCOMMAND(var msg: TMessage);
begin
inherited;
if (Msg.wParam=SC_MINIMIZE) then Hide(Self);
end;
procedure TFrm1.HideMainForm;
begin
Application.ShowMainForm := False;
ShowWindow(Application.Handle, SW_HIDE);
ShowWindow(Application.MainForm.Handle, SW_HIDE);
end;
procedure TFrm1.Hide(Sender: TObject);
begin
HideMainForm;
end;
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c