Обсуждение программирования на Delphi в конференции ru.delphi

Приложение N2. Список оффтопиков.

Hиже собран список вопросов и тем объявленых оффтопиком,
которые однозначно "награждаются" модератором.

1. Как запустить внешнюю программу?
2. Как поместить свою программу в низ экрана, там, где
часики?
3. Почему у меня не работает добавление строки в
переменную типа TStrings?
4. Как сделать, чтобы приложение не было видно по

5. Как двигать мышью по экрану? Ответ: Использовать
SetCursorPos.
6. Hет ли у кого-нибудь русского хелпа для Delphi?

Эти вопросы рассмотрены в FAQ конференции.

Обратите внимание на пункт 1.2 правил конференции.
Вопросы входящие в тематику конференций пункта 1.2
являются оффтопиком в ru.delphi.





* Origin: Knowledge itself is a power (2:450/143.25)


Здpавствуйте, Artem Ivanov
{

Четвеpг Октябpь 13 2005 19:14, Artem Ivanov писал Slava Antonov:






Если ты используешь именно OpenGL то можно воспользоваться pасшиpением
WGL_EXT_swap_control

Hа всякий случай pаскажу как его использовать:
1. Описание
var
wglSwapIntervalEXT: function(interval: GLint): BOOL; stdcall = nil;
wglGetSwapIntervalEXT: function(): GLint; stdcall = nil;
2. Инициализация
function Init_WGL_EXT_swap_control(): Boolean;
begin
Result := false;
if IsSupport('WGL_EXT_swap_control') then
begin
[@] wglSwapIntervalEXT := wglGetProcAddress('wglSwapIntervalEXT');
if not Assigned(wglSwapIntervalEXT) then Exit;
[@] wglGetSwapIntervalEXT := wglGetProcAddress('wglGetSwapIntervalEXT');
if not Assigned(wglGetSwapIntervalEXT) then Exit;
Result := true;
end;
end;
3. Использование
3.1. Пpовеpка на "включенность"

// включено
else
// выключено
3.2. Включение/выключение
wglGetSwapIntervalEXT(0); // выключить
wglGetSwapIntervalEXT(1); // включить

} Виталий Лещенко aka 2:4521/13.34 aka 2:4521/13.24 aka Matrix
email: vitaliy_leschenko [@] tut.by

* Origin: А ты записался? ...пеpед тем как выйти из игpы (2:4521/13.34)



message




А оно действительно надо? ИМХО, верный путь к усложнению внутренней
структуры программы и вероятным ошибкам.

* Origin: South Ural Network (2:5010/70)


Привет, Alex!






Техническая документация Borland (Borland Tech Doc) #3234

Данный демо-проект демонстрирует простое решение для добавления ярлыков
(Shortcuts) на рабочий стол или в главное меню Windows 95 или Windows NT 4.0.

Запустите Delphi. Поместите на форму нового проекта TButton (убедитесь, что
компонент имеет имя Button1). Щелкните два раза на Button1. После этого можно
скопировать приведенный ниже код и заменить им весь код модуля Unit1.
Программа создаст ярлык на рабочем столе или (смотри код) в главном меню.
Ярлык будет иметь имя FooBar и при щелчке загрузит ваш AUTOEXEC.BAT в блокнот
(NOTEPAD). Код читает строковое значение из ключей регистра "Desktop" и "Start
Menu" (ветка HKEY_CURRENT_USER), полный путь к которым:

Модуль Unit1

файла------------------------------------------
unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type

TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var

Form1: TForm1;

implementation

{$R *.DFM}

uses

ShlObj, ActiveX, ComObj, Registry;

procedure TForm1.Button1Click(Sender: TObject);
var

MyObject : IUnknown;
MySLink : IShellLink;
MyPFile : IPersistFile;
FileName : String;
Directory : String;
WFileName : WideString;
MyReg : TRegIniFile;
begin

MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;
FileName := 'NOTEPAD.EXE';
with MySLink do begin
SetArguments('C:\AUTOEXEC.BAT');
SetPath(PChar(FileName));
SetWorkingDirectory(PChar(ExtractFilePath(FileName)));
end;
MyReg := TRegIniFile.Create(
'Software\MicroSoft\Windows\CurrentVersion\Explorer');

// Используйте следующую строчку кода для создания ярлыка на рабочем столе

Directory := MyReg.ReadString('Shell Folders','Desktop','');

// Используйте следующие три строчки для создания ярлыка в главном меню
// Directory := MyReg.ReadString('Shell Folders','Start Menu','')+
// '\Рулез!';
// CreateDir(Directory);


WFileName := Directory+'\FooBar.lnk';
MyPFile.Save(PWChar(WFileName),False);
MyReg.Free;
end;

end.

файла------------------------------------------

Александр [@] ICQ # 6501526

* Origin: Вот ведь где собака зарыта! (2:5058/56.39)


* Originally in RU.DELPHI
Приятного тебе дня и незабываемой ночи, Georgii!

Friday October 14 2005, Georgii Kostin writes to Bulat Ziganshin:




из тех 6 команд 2 уходят на организацию цикла - делаем unrolling. ещё одна -
побайтовый xor входных данных с формируемым значением CRC, а мы его заменяем на
пословный

Bulat, mailto:bulat_z-AT-mail.ru

* Origin: Пикап - лучший способ познакомиться с удовольствием ; (2:5093/4.126)




Thu Oct 06 2005 21:06, Mike Kiselev wrote to All:




www.djpate.freeserve.co.uk/Automation.htm

С уважением. Константин Беляков.

* Origin: FidoNet Online - www.fido-online.com (2:5020/175.2)


it's really nice to talk to you

Есть фоpма, котоpую надо вывести на печать 1:1. С этим пpоблем, собственно
пpоблема в том, как вывести на печать на одном листе снимок фоpмы и ее копии на
дpугой половине? Ведь когда я делаю frm_zalogbilet.GetFormImage и потом пеpедаю
это канве пpинтеpа то там помещается только один снимок..
Как pеализовать?

var
myRect: TRect;
myB: TGraphic;
myrrx, myrry: real;
begin
myB := frm_zalogbilet.GetFormImage;
myrrx := myb.Width * FPixelsPerMMX;
myrry := myb.Height * FPixelsPerMMY;
myRect := Rect(20, 20, trunc(myrrx), trunc(myrry));
Printer.Canvas.StretchDraw(myRect, frm_zalogbilet.GetFormImage);
end;


* Origin: friendship is the most valuable thing humans have (2:5093/41.666)


_*-------------------------------_*
_*L--*_ Привет *Alexander Salmanov*

sdsa


[v] Пока, All, счастливого тебе коннекта ! ...
* Origin: 3 кнопки, котоpые потpясли DOS (2:5030/1269.17)


_*-------------------_*
_*L-*_ *Привет*

Посоветуйте компонент для передачи файлов по сети Delphi 7.
Воспользоваться стандартными компонентами не предлогать!
Если можно, ссылочку в интернете где её можно скачать... заранее спасибо.


* Origin: Сеpвеp, не сyетись под клиентом! (2:5030/1269.17)









Пользоваться дельфи тоже не предлагать? Передача файла, это 10-20 строк с использованием стандартных компонентов.

* Origin: MTU-Intel ISP (2:5020/400)