Форум: "WinAPI";
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];
ВнизWin Api Найти похожие ветки
← →
Dimaond Cat (2002-01-06 17:12) [1]Когда-то давно этот unit мне исполнил ГЛУБОКОУВАЖАЕМЫЙ ЮРИЙ ЗОТОВ (который так и не написал мне какой у него теперь адрес хотя обещал)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls, registry;
type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
RichEdit1: TRichEdit;
Label1: TLabel;
Label2: TLabel;
Panel3: TPanel;
Button1: TButton;
ListBox1: TListBox;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
public
procedure Open(FileName: string);
procedure Print(FileName: string);
procedure ShowMyMessage(FileName :string);
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{$R smile.res} //мой файл ресурсов в котором я храню иконку ассоциирующуюся с моими файлами
procedure Tform1.ShowMyMessage(FileName :string);
begin
ShowMessage("Делаем что-то с файлом - " + Filename);
RichEdit1.Lines.LoadFromFile(FileName) ;
end;
procedure TForm1.Open(FileName: string);
begin
// Open(FileName);
RichEdit1.Lines.LoadFromFile(FileName) ;
// Диагностику возможных ошибок делает сама система и VCL. Если файл задан неверно или
// произойдет сбой при чтении, программа получит Exception, а юзер - сообщение.
end;
procedure TForm1.Print(FileName: string);
begin
try
Open(FileName);
// Если файл не загрузился, произойдет переход на finally.
RichEdit1.Print("отпечатано из моей проги") ;
// Showmessage("Print ok");
// Диагностику возможных ошибок делает сама система и VCL. Если при постановке задания
// в очередь на печать или при самой печати произойдет сбой, юзер получит сообщение.
finally
Showmessage("Print ok");
//Halt ;
// Оператор Halt закомментирован только для отладки. Его надо раскомментировать, тогда
// программа сработает невидимо для юзера. Просто появится диалог печати и исчезнет после
// нажатия в нем на на любую кнопку. С точки зрения юзера это и есть печать, а какая
// программа ее исполняет, ему неинтересно.
end ;
end;
procedure TForm1.FormCreate(Sender: TObject);
const
InvalidKey = "Неверный ключ";
var
i: integer;
reg:Treginifile;
begin
reg:=Treginifile.Create("");
reg.RootKey:=HKEY_CLASSES_ROOT;
if reg.readstring(".aaa","","empty")<>"empty" then
begin
button1.Caption:="Снять регистрацию";
Panel3.Caption:="Такое расширение уже зарегистрировано";
reg.Free
end;
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.004 c