Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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 хорошо видно




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.016 c
3-75467           VovanR                2001-12-18 17:17  2002.01.24  
Производительность функции Table.Locate ?


1-75619           Starkom               2002-01-08 11:21  2002.01.24  
Не могу инсталлировать Delphi5 под WinXP


7-75690           Jazzy$                2001-10-10 19:45  2002.01.24  
Выключение монитора.


6-75636           Виктор                2001-08-28 16:05  2002.01.24  
Как скачать файл по локальной сети ?


1-75588           Tuk                   2002-01-03 19:42  2002.01.24  
Мастера, подскажите, отчет не помещается по ширине на лист с альбомной ориентацией как его можно разарезать?