SyntaxFrage

[Tommy1988]

Folgenden Code habe ich gesucht/gefunden/gelesen/verstanden und gelernt..

so..

Delphi-Quellcode:

function GetUsername: String;
var
  Buffer: array[0..255] of Char;
  Size: DWord;
begin
  Size := SizeOf(Buffer);
  if not Windows.GetUserName(Buffer, Size) then
    RaiseLastOSError;
  SetString(Result, Buffer, Size - 1);
end;

Jetzt frage ich mich nur, ob das hier Speichern in einer Variable) so in Ordnung ist:

Delphi-Quellcode:

var
x : String;
begin
X := GetUsername;
end;

[fwsp]

Zitat von Tommy1988:

Jetzt frage ich mich nur, ob das hier Speichern in einer Variable) so in Ordnung ist:

klar. probier es doch mal aus.

[Tommy1988]

Hab ich schon sieht nur etwas komisch aus deswegen.

KÖNNTE man auch die zuordnung zur variablen WEG lassen und immer da wo man den namen braucht die funktion aufrufen (zwar doof.. aber würde das gehen ?)

[Matze]

Na klar würde das gehen.

[3_of_8]

Natürlich.

[mkinzler]

Warum sollte das nicht gehen?

[Tommy1988]

Ich möchte jetzt nicht extra noch einen Thread aufmachen deswgeen meine Frage:


ich versuche mit dieser funktion

Delphi-Quellcode:

function FolderSize(FolderName: string): Int64;
var
  fldr, fso: OleVariant;
begin
  fso    := CreateOleObject('Scripting.FileSystemObject');
  fldr   := fso.GetFolder(FolderName);

  result := fldr.size;
end;

die größe eines verzeichnisses zu emritteln.

oben habe ich
FolderName: String;
so vereinbart.

und dann eine konstante festgelegt:

Delphi-Quellcode:

const
  FolderMame =
'Dokumente und Einstellungen\Administrator\';

ButtonClick:
FolderSize(FolderMame);

Nur leider bekomme ich eine Fehlermeldung.

[mkinzler]

Es wäre vielleicht auch interessant, welcher Fehler gemeldet wird

[Blackheart]

FolderName - FolderMame
FolderName erwartet vieleicht einen Relativen Pfad.

[Tommy1988]

mh, ok ich hab hinbekommen, aber wie schreibe ich Die FolderSize ins Caption?

Das ist ja Int64, und Capion ein String