Форум: "Основная";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];
ВнизОтображение приложения в Ctrl+Alt+Delete Найти похожие ветки
← →
Delphimun (2002-01-06 18:46) [0]Хочу наконец разобраться, как скрыть арограмму от Ctrl+Alt+Delete, но никак не могу
Вот Код программы, где она должна скрыться от Ctrl+AltDelete, но компилятор выдаёт ошибки:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external "KERNEL32.DLL";
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
//Hide
if not (csDesigning in ComponentState) then
RegisterServiceProcess(GetCurrentProcessID, 1);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
//Show
if not (csDesigning in ComponentState) then
RegisterServiceProcess(GetCurrentProcessID, 0);
end;
end.
Компилятор выделяет красным строку: function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external "KERNEL32.DLL";
end;
Об статистических ошибках пишет следующее:
[Error] Unit1.pas(21): Field definition not allowed after methods or properties
[Error] Unit1.pas(22): Type expected but "END" found
[Error] Unit1.pas(21): Unsatisfied forward or external declaration: "TForm1.RegisterServiceProcess"
[Fatal Error] Project2.dpr(5): Could not compile used unit "Unit1.pas"
Помогите разобраться и убрать ошибки
Заранее благодарен.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c