hi
des ist ganz einfach:
Code:
function GetPowerStatus(var HasBattery: Boolean; var LoadStatusString: String;
var LoadstatusPercent: Integer): DWORD;
var
SystemPowerStatus: TSystemPowerStatus;
Text: string;
resourcestring
rsLoadStatusUnknown = 'Unbekannter Status';
rsLoadStatusNoBattery = 'Es existiert keine Batterie';
...
...
...
die function reinschreiben und dann:
Code:
prodecure Bitbtn.....
var
A : DWord;
begin
A := GetPowerStatus(und hier die Parameter): DWORD;
end;
Ps.: Du musst des ganzer nicht in die Variable stecken.
gsh