Difference between revisions of "Linux distribution recognize/de"
From Lazarus wiki
Jump to navigationJump to search (Created page with "{{Linux distribution recognize}} <br> Dieser Artikel beschäftigt sich mit der Linuxprogrammierung.<br> Die Prozedur ermittelt den Namen der aktuellen Linuxdistribution.<br> <...") |
m |
||
Line 58: | Line 58: | ||
<br> | <br> | ||
--[[User:Olaf|Olaf]] 06:35, 30 May 2013 (UTC) | --[[User:Olaf|Olaf]] 06:35, 30 May 2013 (UTC) | ||
− | [[Category:Code Parts/de]] | + | [[Category:Code Parts/de]]{{AutoCategory}} |
Revision as of 08:26, 23 August 2013
Dieser Artikel behandelt ausschließlich Linux.
Siehe auch: Multiplatform Programming Guide/de
│
Deutsch (de) │
Dieser Artikel beschäftigt sich mit der Linuxprogrammierung.
Die Prozedur ermittelt den Namen der aktuellen Linuxdistribution.
uses
SysUtils, ...;
...
function funLeseDatei: string;
var
txtDatei: Textfile;
begin
Assignfile(txtDatei, '/etc/issue'); //Weist txtDatei die Datei zu
reset(txtDatei); //Öffnet die Datei zum lesen
readln(txtDatei, Result); //liest die erste Zeile
Closefile(txtDatei); //Schließt die Datei
end;
function funLinuxDistribution: string;
var
strDistribution: string;
begin
Result := '';
strDistribution := funLeseDatei;
if strDistribution = '' then
exit;
// Wandelt alle Grossbuchstaben in Kleinbuchstaben um
strDistribution := LowerCase(strDistribution);
// ermittelt die Distribution
if Pos('debian', strDistribution) > 0 then
Result := 'debian'
else if Pos('kubuntu', strDistribution) > 0 then
Result := 'kubuntu'
else if Pos('red hat', strDistribution) > 0 then
Result := 'red hat'
else if Pos('suse', strDistribution) > 0 then
Result := 'suse'
else if Pos('ubuntu', strDistribution) > 0 then
Result := 'ubuntu';
// .. und der Distributionen mehr ...
end;
...
--Olaf 06:35, 30 May 2013 (UTC)