[Gudzik11]

Здравствуйте подскажите пожалуйста как использовать эту функцию с другого unit

Код:

PostMessage(Handle,WM_SYSCOMMAND, SC_MINIMIZE, 1);

[angvelem]

Handle верный укажи.

[Gudzik11]

а верный это какой

И следующая строчка кода тоже ошибку выдаёт

Код:

Form2:=TForm2.Create(Self);

Undeclared identifier: 'Self'

[angvelem]

Формы, которую сворачиваешь.

[Gudzik11]

Так

Код:

PostMessage(Form1.Handle,WM_SYSCOMMAND, SC_MINIMIZE, 1);

тоже ошибка

[angvelem]

Form1 в uses добавил?

[angvelem]

Сообщение от Gudzik11

И следующая строчка кода тоже ошибку выдаёт

Код:

Form2:=TForm2.Create(Self);

Может всё-таки:

Код:

  Form2 := TForm.Create(Self);

[Gudzik11]

Код:

unit Timerss;

interface

   procedure time1;
   procedure time2;
   procedure Tim1;
   function AddNull(InpTime: String): String;

implementation
  uses
    Center,Closs, SysUtils,Controls,Windows,ShellAPI;


 //#############################################################

 function AddNull(InpTime: String): String;
var S: String;
begin
  S := InpTime;
  if Pos(':', S) - 2 <> 0 then
    Result := S
  else
    begin
      Insert('0', S, 1);
      Result := S
    end;
end;

function MyExitWindows(RebootParam: Longword): Boolean;
var
 TTokenHd: THandle;
 TTokenPvg: TTokenPrivileges;
 cbtpPrevious: DWORD;  
 rTTokenPvg: TTokenPrivileges;
 pcbtpPreviousRequired: DWORD;
 tpResult: Boolean;  
const
 SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';  
begin  
 if Win32Platform = VER_PLATFORM_WIN32_NT then
 begin  
   tpResult := OpenProcessToken(GetCurrentProcess(),  
     TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,
     TTokenHd);  
   if tpResult then  
   begin
     tpResult := LookupPrivilegeValue(nil,  
                                      SE_SHUTDOWN_NAME,  
                                      TTokenPvg.Privileges[0].Luid);
     TTokenPvg.PrivilegeCount := 1;  
     TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;  
     cbtpPrevious := SizeOf(rTTokenPvg);  
     pcbtpPreviousRequired := 0;
     if tpResult then  
       Windows.AdjustTokenPrivileges(TTokenHd,  
                                     False,
                                     TTokenPvg,
                                     cbtpPrevious,
                                     rTTokenPvg,
                                     pcbtpPreviousRequired);
   end;
 end;
 Result := ExitWindowsEx(RebootParam, 0);
end;

 procedure Tim1;
 begin
  chas := StrToTime('00:00:00');
  sec:= StrToTime('0:0:1');

 end;

 procedure time1;
 
 begin
    Form1.Timer1.Enabled:=True;

    Form1.Panel26.Caption:=FormatDateTime('hh:nn:ss', Time);
 end;

 procedure time2;

 begin
   chas:=Chas-sec;
   Form1.Panel27.Caption:=AddNull(TimeToStr(Chas));
   Form2.Panel1.Caption  :='до включения'+'  '+AddNull(TimeToStr(Chas))+' сек';
   if TimeToStr(Chas)='0:00:00' then
   begin
    Form1.Timer2.Enabled:=False ;
     MyExitWindows(EWX_POWEROFF or EWX_FORCE);
   end
  else
  if TimeToStr(Chas)='0:00:30' then
   begin
      PostMessage(Form1.Handle,WM_SYSCOMMAND, SC_MINIMIZE, 1);
       if (not Assigned(Form2)) then   // проверка существования Формы (если нет, то
       Form2:=TForm2.Create(Self);    // создание Формы)
   Form2.Show; // (или Form2.ShowModal) показ Формы ;  }

   end;
 end;
end.

именно Form1 нужно или имя pas если pas то да
Center

[Gudzik11]

с одним разобрался просто в uses нужно было добавить Messages
Теперь выдаёт ошибку

Undeclared identifier: 'Self'

в строке

Код:

Form2:=TForm2.Create(Self);

[angvelem]

Читай выше, откуда откопал TForm2?

[Gudzik11]

Создал 2 форму обозвал её closs добавил в uses
с основного unit этот код работает

Код:

if (not Assigned(Form2)) then   
       Form2:=TForm2.Create(self);   
       Form2.Show;

форма появляется а с этого unit пишит ошибку

Undeclared identifier: 'Self'

[angvelem]

В uses ничего не забыл добавить? К примеру: Forms, Classes?

[Gudzik11]

уже добавил всё что можно было добавить

И всё равно

Undeclared identifier: 'Self'

[angvelem]

Пока я вижу:

Код:

uses
  Center, Closs, SysUtils, Controls, Windows, ShellAPI; 

Self от чего?

[Gudzik11]

Код:

implementation
  uses
    Center,Closs, SysUtils,Controls,Windows,Messages,Classes,Forms
  ,  Variants,
  Dialogs;