windows variabler

brug  SetEnvironmentVariable()

Jens B

ok.. nu er jeg ik nogen haj til det..

men hvordan "henter" jeg fx den bruger der er logget på?

GetEnvironmentVariable()
..... :-)

Jens B

nååe GetUserName ...

Jens B

function GetCurrentUserName : string;
const
cnMaxUserNameLen = 254;
var
sUserName : string;
dwUserNameLen : DWord;
begin
dwUserNameLen := cnMaxUserNameLen-1;
SetLength(sUserName, cnMaxUserNameLen);
GetUserName(PChar(sUserName), dwUserNameLen);
SetLength(sUserName, dwUserNameLen);
Result := sUserName;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetCurrentUserName);
end;

Stoney

ok..

hvad skal jeg skrive inde i ()?

Function GetCurrentUserName : String;
var
  Size : Cardinal;
begin
Size := MAX_PATH;
SetLength(Result, Size);
Windows.GetUserName(PChar(Result),Size);
SetLength(Result, Pred(Pos(#0,Result)));
end;

jens B

hov ups stoney .. Så ikke lige dit svar :-)

Men min løsning er bedere fordi det er min :-) (Nå ikke)

-ulli- >>
til hvilken funktion ?

Jens B

Jens: jeg havde ikke set stoneys svar, da jeg skrev mit indlæg. Men, jeg er lige startet på delphi, så jeg var i tvivl om hvad der skulle stå i getUserName(), getEnvironmentSettings() og set..().. altså inden i ()..

kig i hjælpen .... Det er ikke fordi jeg ikke vil fortælle dig det .. men du lærer 500 gange mere af selv at slå det op :-)

Jens B

ja ok :/

er det iorden hvis I får 15 hver?

ja ja .. Det med hjælpen er lidt tricky at finde ud af .. Prøv dig frem og spørg dig frem ....

Jens B

ok.. jeg vender nok tilbage, når jeg støder på noget nyt ;)

takker for hjælpen

jens B >>

Min kode er måske ergonomisk ukorrekt, da det kræver mere cut & paste med
der af følgende museskader.

Vedr. ekspertenfest kan man ikke se hvem der har tilmeldt sig ?

Stoney

Der er ikke nogen der har tlimeldt sig .. Vi skal først ligge os fast på en dato ...

Jens B