Könnte einer den Code unter Win95/98/Me oder NT prüfen?

Popov · Verfasst: Di 30.01.07 13:27

Es wäre nett wenn einer der noch Windows 95 oder 98 oder Me hat den unteren Code ausführen würde und mir sagen würde was rauskommt. Ich kann es nur vermuten. Auch ein Ergebnis von Windows NT wäre gut.

Der Code liefert drei Pfade auf den Desktop. Die ersten beiden Konstanten liefern unter XP gleiches Ergebnis und den Pfad zum Desktop, wobei die zweite Konstante dies bei Konten macht und die erste auf den Desktopordner im Windows-Verzeichnis hinweist (wenn er da ist, sonst auf den Desktop des Kontos). Unter XP tut sich da wohl nicht viel und beide haben den gleichen Pfad. Die Frage ist allerdings was bei Windows 9x rauskommt. Das kann ich leider nicht nachprüfen. Wahrscheinlich zeigt die erste Konstante bei Windows 95 auf den Desktopordner im Windows-Verzeichnis. Was zeigt die Zweite? Und was kommt bei 98 und Me raus? Da es unter 9x noch keinen gemeinsamen Desktop gab, was zeigt die dritte Konstante. Zuletzt wäre das Ganze für NT noch interessant.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

uses
  Shlobj;

function SpecialDirectory(ID: Integer): String;
var
  pidl : PItemIDList;
  Path : PChar;
begin
  if SUCCEEDED(SHGetSpecialFolderLocation(0, ID, pidl)) then
  begin
    Path := StrAlloc(max_path);
    SHGetPathFromIDList(pidl, Path);
    Result := String(Path);
    if (Result <> '') and (Result[Length(Result)] <> '\') then Result := Result + '\';
  end
    else Result := '';
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  CSIDL_DESKTOP = $0000;
  CSIDL_DESKTOPDIRECTORY = $0010;
  CSIDL_COMMON_DESKTOPDIRECTORY = $0019;
begin
  ShowMessage ('1) CSIDL_DESKTOP: ' + SpecialDirectory(CSIDL_DESKTOP));
  ShowMessage ('2) CSIDL_DESKTOPDIRECTORY: ' + SpecialDirectory(CSIDL_DESKTOPDIRECTORY));
  ShowMessage ('3) CSIDL_COMMON_DESKTOPDIRECTORY: ' + SpecialDirectory(CSIDL_COMMON_DESKTOPDIRECTORY));
end;

_________________
Popov

ZeitGeist87 · Verfasst: Di 30.01.07 14:10

Hallo!

Hab es grad unter Windows98 getestet:

1) C:\Windows\Desktop
2) C:\Windows\Desktop
3) nichts

LG
Stefan

_________________
Wer Provokationen, Ironie, Sarkasmus oder Zynismus herauslesen kann soll sie ignorieren um den Inhalt meiner Beiträge ungetrübt erfassen zu können.

Popov · Verfasst: Di 30.01.07 15:03

Danke dir.

Jetzt wäre es noch bei 95 (wer hat das noch?) und NT interessant.

_________________
Popov

Raffo · Beiträge: 300

Ähm, gehst Du wirklich davon aus, dass jemand sein Delphi aufm Win95 Rechner installiert hat? Da musste am besten ne lauffähige .exe hier posten, die dann per MsgBox oder aufm Screen mit 3 Labels das Ergebnis bekannt gibt. (mein Vorschlag)

ZeitGeist87 · Verfasst: Di 30.01.07 16:25

Habs getestet!

Bei Windows95 dasselbe wie bei Windows98!

Und NT..hmm..würde dir NT4.0 reichen?

Könnt dir das morgen nachreichen...heut schaff ichs zeitlich leider nicht mehr!

LG
Stefan

_________________
Wer Provokationen, Ironie, Sarkasmus oder Zynismus herauslesen kann soll sie ignorieren um den Inhalt meiner Beiträge ungetrübt erfassen zu können.

Popov · Verfasst: Di 30.01.07 16:40

Ja danke, NT4 würde reichen. Das sind mehr oder weniger die Systeme bei dem es einen Wechsel bzw. die nennenswerten Unterschiede gab. 2000 und 2003 werden wohl wie XP sein und Me wie 9x. Somit gibt es noch NT4 das sich unterschieden könnte.

_________________
Popov

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Zwar nicht gefragt, aber es schadet ja nix. Unter Vista sieht's so aus:

markieren

Quelltext

1:
2:
3:

C:\Users\{NUTZERNAME}\Desktop\
C:\Users\{NUTZERNAME}\Desktop\
C:\Users\Public\Desktop

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

Popov · Verfasst: Di 30.01.07 17:27

Nein, schaden kann es nicht. Ist auch interessant. Stimmt das wirklich?

C:\Users\...

Haben die den Bereich aus "Dokumente und Einstellungen" in ein extra Verzeichnis ausgekoppelt?

Das wäre schon mal eine kleine Verbesserung.

_________________
Popov

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Es gibt jetzt die Ordner:

c:\ProgramData

und

c:\Users\{NUTZERNAME}

Ersterer ersetzt wohl "C:\Documents and Settings\All Users\Application Data" und letzter dann den entsprechenden Nutzer-Ordner.

Ach ja, ich habe ein englisches Vista, ich weiß nicht, ob die in der deutschen Version eingedeutscht wurde. :nixweiss:

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme