Dvale function til XP

start > Luk computeren > hold shift nede og vælg dvale !

Du er her : Eksperten : Spørgsmål & Svar : Programmering :: Delphi :: Dvale function til XP

:D men ellers tak for svaret :)

Den side der henvises til http://www.swissdelphicenter.ch/torry/showcode.php?id=1401
fungerer "godt nok", Der skal bare rettes en anelse i koden:

i Interface delen indsættes:


function SetSuspendState(
  Hibernate: Boolean;
  ForceCritical: Boolean;
  DisableWakeEvent: Boolean):boolean;


{  Parameters:

  Hibernate: If this parameter is TRUE, the system hibernates.
              If the parameter is FALSE, the system is suspended.
  ForceCritical: If this parameter is TRUE, the system suspends operation immediately;
                  if it is FALSE, the system broadcasts a PBT_APMQUERYSUSPEND event to
                  each application to request permission to suspend operation.
  DisableWakeEvent: If this parameter is TRUE, the system disables all wake events.
                    If the parameter is FALSE, any system wake events remain enabled.


  Windows NT/2000/XP: Included in Windows 2000 and later.
  Windows 95/98/Me: Included in Windows 98 and later.
}

var
  _SetSuspendState: function (Hibernate, ForceCritical, DisableWakeEvent: BOOL): BOOL;  stdcall; // = nil);

og i Implementation:





function LinkAPI(const module, functionname: string): Pointer; forward;

function SetSuspendState(Hibernate, ForceCritical,  DisableWakeEvent: Boolean): boolean;
  begin
  if not Assigned(_SetSuspendState) then
    @_SetSuspendState := LinkAPI('POWRPROF.dll', 'SetSuspendState');
  if Assigned(_SetSuspendState) then
    Result := _SetSuspendState(Hibernate, ForceCritical, DisableWakeEvent)
  else
    Result := False;
  end;

function LinkAPI(const module, functionname: string): Pointer;
var
  hLib: HMODULE;
  begin
  hLib := GetModulehandle(PChar(module));
  if hLib = 0 then
    hLib := LoadLibrary(PChar(module));
  if hLib <> 0 then
    Result := getProcAddress(hLib, PChar(functionname))
  else
    Result := nil;
  end;


Og så en knap (Button1) der kalder :


procedure TForm1.Button3Click(Sender: TObject);
begin
  SetSuspendState(True, False, False);
end;

Lige så snart jeg sætter det her ind lige efter 'interface':

function SetSuspendState(
  Hibernate: Boolean;
  ForceCritical: Boolean;
  DisableWakeEvent: Boolean):boolean;
var
  _SetSuspendState: function (Hibernate, ForceCritical, DisableWakeEvent: BOOL): BOOL;  stdcall; // = nil);

Så brokker den sig med det her + ca 100 andre om alt muligt mærkeligt :-/

[Pascal Error] MainForm.pas(10): E2029 Declaration expected but 'USES' found

Det skal indsættes 'lige over' implementation i interface-delen

Det vigtige er at din Uses-sætning kommer umiddelbart efter Interface

ha ha,  det havde jeg slet ikke set !  godt ord igen !

lidt sent på den (som jeg plejer ;P) men fik det til at virke, så hvis nogen vil have point så smid et svar :) så vi kan få lukket det spg ;)

Fint det lykkedes for dig (after all ?? )  :-))