Форум: "Основная";
Текущий архив: 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"
Помогите разобраться и убрать ошибки
Заранее благодарен.
← →
Dmitriy_R (2002-01-06 18:58) [1]Попробуй вот так-
var
FormMain: TFormMain;
implementation
uses UnitForm, UnitFormClient;
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external "KERNEL32.DLL";
{$R *.dfm}
← →
Dmitriy_R (2002-01-06 19:00) [2]Ну в смысле ты понял где попробуй поставить Function
← →
Delphimun (2002-01-06 19:05) [3]Dmitriy_R >
Большое спасибо, всё работает!
← →
Delphimun (2002-01-06 19:14) [4]У меня возник ещё один вопрос на эту тему;
А как зделать тоже самое, но в приложении без формы?
Тоесть меня интересует где нужно писать:
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external "KERNEL32.DLL";
Заранее благодарен.
← →
Dmitriy_R (2002-01-06 19:19) [5]Если я не ошибаюсь то попробуй поставить просто в implementation а при первом запуске он тебя спросит и сам поставит куда надо.
← →
Delphimun (2002-01-06 19:23) [6]Вот код приложения без формы:
program Project1;
uses
SysUtils,
Psock,
NMsmtp;
var
mysmtp: tnmsmtp;
Begin
mysmtp := TNMsmtp.create(nil);
Mysmtp.PostMessage.FromAddress := "Delphimun@rambler.ru";
Mysmtp.PostMessage.ToAddress.Text := "Delphimun@rambler.ru";
Mysmtp.PostMessage.Body.Text := "Hello I";
Mysmtp.Host := "pop.rambler.ru";
mysmtp.PostMessage.Attachments.Add("C:\scandisk.log");
Mysmtp.Port := 25;
Mysmtp.Connect;
Mysmtp.SendMail;
Mysmtp.Disconnect;
Mysmtp.Destroy;
end.
Здесь нет implienation, как зделать такое приложение невидемым в Ctrl+Alt+Delete?
← →
Tosov (2002-01-06 23:16) [7]Delphimun © (06.01.02 19:23)
По моему - если у тебя не консольное приложение- его и не будет видно в C+A+D
← →
Вадим (2002-01-07 02:33) [8]2Tosov
Ты ошибаешься
← →
Delphimun (2002-01-07 06:57) [9]У меня его в ctrl+Alt+Delete хорошо видно
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.004 c