Wann bzw. an welcher Position CloseHandle?

[Delphi-Laie]

Hallo Delphifreunde!

Zur Abwechslung mal wieder eine fachliche Frage, die ich nicht so recht beantwortet fand: Wann bzw. an welcher Stelle sollte (eigentlich muß) ein Closehandle generell erfolgen? Nur, wenn der Funktionsaufruf erfolgreich war oder immer? Also ein Beispiel anhand eines Prozeßhandles:

Delphi-Quellcode:

var hProcess:THandle;
begin
hProcess:=OpenProcess(PROCESS_SET_INFORMATION,true,0);
if hProcess<>0 then
  begin
  //tue irgendetwas mit dem Prozeßhandle
  closehandle(hProcess) //hier?
  end;
closehandle(hProcess) //oder hier?
end

Ich vermute, daß es immer, also außerhalb des if-Blockes, erfolgen sollte/muß.

[Bummi]

innerhalb, nur dann hast Du ein gültiges handle zum Schließen.

[Delphi-Laie]

Danke!

Ergänzung: Ich erlebte allerdings noch nie, daß bei einem fehlgeschlagenen Funktionsaufruf das Closehandle, auf das ungültige Handle angwandt, irgendein merkliches Programmverhalten auslöste, Exception z.B., geschweige denn, Absturz.

[Sir Rufo]

Das ist wie mit TObject.Free und TObject.Destroy (wobei

Delphi-Quellcode:

CloseHandle

hier mit TObject.Destroy vergleichbar ist).

Ein

Delphi-Quellcode:

SafeCloseHandle

(analog zu TObject.Free) würde so aussehen:

Delphi-Quellcode:

function SafeCloseHandle( hObject : THandle ) : Boolean;
begin
  if ( hObject = 0 ) then
    Exit( True );

  Result := ( CloseHandle( hObject ) <> 0 );
end;

[DeddyH]

Oder in älteren Delphi-Versionen:

Delphi-Quellcode:

function SafeCloseHandle(hObject : THandle) : Boolean;
begin
  if (hObject = 0) then
    Result := True
  else
    Result := CloseHandle(hObject) <> 0;
end;

[Delphi-Laie]

Verstehen tue ich Euch zwar nicht so recht, aber plötzlich kam ich auf die Idee zu prüfen, ob CloseHandle einen boolschen Rückgabewert hat. Tatsächlich, hat es: Bei einem gültigen Handle gibt es true, bei einem ungültigen false false. Damit kann ich Bummis Aussage hiermit bestätigen (war mir aber auch vorher schon klar, daß es stimmt).

Danke noch einmal!

[Dalai]

@Sir Rufo & DeddyH: Eine

Delphi-Quellcode:

procedure

mit einem Rückgabewert? Mit einer

Delphi-Quellcode:

function

geht das besser ;).

MfG Dalai

[DeddyH]

Jaja, sch**ß C&P, ich korrigier das oben :tongue:

[Sir Rufo]

Zitat:

Zitat von Dalai (Beitrag 1210212)

@Sir Rufo & DeddyH: Eine

Delphi-Quellcode:

procedure

mit einem Rückgabewert? Mit einer

Delphi-Quellcode:

function

geht das besser ;).

MfG Dalai

Wo siehst denn du da

Delphi-Quellcode:

procedure

:mrgreen: