funktionsaufruf?!

[cherry]

Hi

:duck:

Es geht um diese function

Delphi-Quellcode:

function SetPrivilege(Privilege: PChar; EnablePrivilege: Boolean; 
  out PreviousState: Boolean): DWORD;

1. Wie Deklariere ich diese? < hat mir eine Fehlermeldung erzeugt...
2. und wie rufe ich diese dann auf? respektive welche parameter muss ich mitgeben?!

THX

[Luckie]

Was willst du da deklarieren? Übernimm die Funktion in deinen Code und ruf sie auf.

[cherry]

muss ich die ^nicht bei "type" deklarieren wie die procedures??
Und welche Parameter übergebe ich, kannst du mir ein Aufrufsbeispiel machen bitte?
wär echt zuvorkommend

THX

[Angel4585]

die funktion muss nicht deklariert werden einfach in den Code und spass haben damit :bounce2: :bounce2: :bounce2:

[Neutral General]

Man muss procedures nicht bei Type deklarieren.. kann man eigentlich gar nicht oder? :gruebel:
Man kann eine Procedure nur einer Klasse zuweisen indem man sie z.B in den Public Teil schreibt. Du kannst aber sowohl Proceduren als auch Functionen einfach so in den Quelltext setzen.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function KeineAhnung: String;
begin
  Result := 'KeineAhnung';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Caption := KeineAhnung;
end;

end.

so zum Beispiel...

[Khabarakh]

Wenn du die Funktion nur innerhalb der Unit benutzen willst, kannst du sie einfach in den Implementation-Abschnitt kopieren (allerdings über dem Code, in der sie aufgerufen wird). Ein Aufrufbeispiel findest du in Luckies Post, aus dem du die Funktion kopiert hast.

[cherry]

:pale: :oops: :lol: :roll:


aber aufrufen muss ich diese doch... und i weiss nicht was ich für parameter übergeben soll...

PS: wenn ich sie nicht deklariere gebts nen Fehler: Undefinierter 'Bezeichner SetPrivilege'

:nerd: sorry für meine Unbeholfenheit :nerd:

[Luckie]

Das sieht man doch am Funktionskopf: Das Privileg, welches du aktivieren oder deaktivieren willst, ob es aktiviert opder deaktiviert werden soll (true: aktivieren, false: Deaktivieren) und zurück bekommst du, ob es vorher aktiviert oder deaktiviert war.

[cherry]

Will euch ja nich nerven aber ich schaffs net!!

fehler im Anhang!

[Khabarakh]

Aber bitte nicht als BMP :shock: !
Schau dir Luckies Code nochmal etwas genauer an:

Code:

function RegSaveKeyToFile(Key: HKEY; const SubKey, FileName: string): DWORD;
[b]const
  SE_BACKUP_NAME = 'SeBackupPrivilege';
[/b]var
  Return: DWORD;
  [b]PreviousState: Boolean;[/b]
  KeyHandle: HKEY;
begin
  Return := SetPrivilege(SE_BACKUP_NAME, [b]True[/b], PreviousState);
  [...]