Wie mache ich…

Wie lade ich eine Text Datei in eine Combobox ??

Aus einer Ini – Datei lesen oder hineinschreiben

Eine E-Mail aus meiner Anwendung versenden

Den Computernamen ermitteln??

Wie lade ich eine Text Datei in eine Combobox ??

Wenn sie im selben Verzeichnis ist wie die exe Datei dann so:

(Sonst einfach ExtractFilePath(…) mit dem Pfad ersetzen)

Combobox.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+'Text1.txt');

Zurück zum Anfang

Aus einer Ini – Datei lesen oder hineinschreiben

So schaut die Ini-File aus und heißt Test.ini:

[DB]

IP=127.0.0.1

PORT=3603

Lesen:

Eine Variable namens MeineIni : TIniFile muss angelegt werden!!

if FileExists(ExtractFilePath(Application.ExeName)+'Test.ini') then

begin

MeineIni:= TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Test.ini');

Edtit1.Text:= MeineIni.ReadString( 'DB' , 'IP' , '' );

Edit2.Text:= MeineIni.ReadString( 'DB' , 'PORT' , '' );

end;

Schreiben:

Wie oben muss eine Variable vom Typ TIniFile vorhanden sein!!

if FileExists(ExtractFilePath(Application.ExeName)+'Test.ini') then

begin

MeineIni:= TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Test.ini' );

MeineIni.WriteString('DB','IP',Edit1.Text);

MeineIni.WriteString('DB','PORT',Edit2.Text);

end;

ZUM SCHLUß NICHT VERGESSEN: MeineIni.Free; !!!!!

(gibt den Speicher wieder frei)

Zurück zum Anfang

Eine E-Mail versenden aus meiner Anwendung

procedure Mailsenden(Empfaenger,Betreff: string);

begin

ShellExecute ( Application.Handle, 'open',Pchar ('mailto:' + Empfaenger +

'?subject='+Betreff), nil, nil, sw_ShowNormal);

end;

Zurück zum Anfang

Den Computernamen ermitteln??

function GetPCNamen( ):String;

var

Buffer: Array[0..MAX_COMPUTERNAME_LENGTH+1] of Char;

Size: DWORD;

begin

size:=1024;

Windows.GetUserName(Buffer, Size);

Result:=StrPas(Buffer);

end;

Zurück zum Anfang