向delphi 高手请教

来源：百度知道 编辑：UC知道 时间：2024/06/18 08:23:31
dephi报错
unable to write to C:\Documents and Settings\Administrator\桌面
程序代码如下 求高手赐教

unit Unit1;

interface

uses
Windows, shlobj, IniFiles, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var
ini:TIniFile;
s:string;
ss:string;
pitem:PITEMIDLIST;

procedure TForm1.FormCreate(Sender: TObject);

begin
shGetSpecialFolderLocation(handle,CSIDL_DESKTOP,pitem);
setlength(s,100);
shGetPathFromIDList(pitem,pchar(s));
ss:=s+'1.url';
ini:=TIniFile.Create(ss);

而直接用 ini:=TIniFile.Create('C:\Documents and Settings\Administrator\桌面\1.

unit Unit1;

interface

uses
Windows, shlobj, IniFiles, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
var
ini:TIniFile;
s: array[0..254] of Char;
ss:string;
pitem:PITEMIDLIST;

procedure TForm1.FormCreate(Sender: TObject);
begin
shGetSpecialFolderLocation(handle,CSIDL_DESKTOP,pitem);
shGetPathFromIDList(pitem,s);
ss:=s+'\1.url';
ini:=TIniFile.Create(ss);
ini.WriteString('1','1','1');
end;

end.

你先输出一下ss看看是否正确路径,这个路径就是错的:ss:=s+'1.url';

--- 电脑大师路过