http://xeffort.com/forum/ Xeffort Forum - xeffort.com/forum/ Fri, 10 Sep 2010 21:26:07 UT Xeffort Forum / www.beehiveforum.net http://xeffort.com/forum/?webtag=XEFFORT&msg=73.1 Fri, 06 Aug 2010 07:15:26 UT http://xeffort.com/forum/?webtag=XEFFORT&msg=73.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=73.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=72.1 Thu, 10 Jun 2010 17:35:42 UT http://xeffort.com/forum/?webtag=XEFFORT&msg=72.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=72.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=71.1 Tue, 01 Jun 2010 02:34:07 UT http://xeffort.com/forum/?webtag=XEFFORT&msg=71.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=71.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=70.1 Thu, 06 May 2010 10:03:03 UT http://xeffort.com/forum/?webtag=XEFFORT&msg=70.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=70.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=69.1 Fri, 19 Feb 2010 16:37:49 UT http://xeffort.com/forum/?webtag=XEFFORT&msg=69.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=69.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=68.1 Wed, 17 Feb 2010 05:21:49 UT http://xeffort.com/forum/?webtag=XEFFORT&msg=68.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=68.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=67.1 Sun, 07 Feb 2010 09:39:17 UT http://xeffort.com/forum/?webtag=XEFFORT&msg=67.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=67.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=66.1 Sun, 17 Jan 2010 08:29:51 UT http://xeffort.com/forum/?webtag=XEFFORT&msg=66.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=66.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=65.1 Mon, 11 Jan 2010 06:45:10 UT http://xeffort.com/forum/?webtag=XEFFORT&msg=65.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=65.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=64.1 Sun, 20 Dec 2009 06:29:59 UT http://xeffort.com/forum/?webtag=XEFFORT&msg=64.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=64.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=60.1 Sun, 20 Dec 2009 06:24:54 UT http://xeffort.com/forum/?webtag=XEFFORT&msg=60.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=60.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=63.1 Wed, 09 Dec 2009 16:39:13 UT http://xeffort.com/forum/?webtag=XEFFORT&msg=63.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=63.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=62.1 Wed, 25 Nov 2009 02:40:45 UT http://xeffort.com/forum/?webtag=XEFFORT&msg=62.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=62.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=61.1 Mon, 23 Nov 2009 11:49:55 UT http://xeffort.com/forum/?webtag=XEFFORT&msg=61.1 1)Anyone used SetFileInformationByHandle in practice for renaming of the files ,so that it worked - i.e. renamed the files? With what parameter to open handle file? Beside me this function DELETES the files , but does NOT RENAME them. Can be this function does not work? Possible bring detailed working example of the use SetFileInformationByHandle for renaming of the file? It Beforehand is much thanked. !my code: STRDISK="c" ! disk name str251="ABC.txt" STR251=ADJUSTL(STR251) string0="\??\"//STRDISK//":" filedir="\??\"//STRDISK//":" filename1="\??\"//STRDISK//":\"//TRIM(STR251) hFile1=CreateFile(trim(filename1)//blob(0),GENERIC_ALL + SYNCHRONIZE ,FILE_SHARE_READ + FILE_SHARE_WRITE , & 0,OPEN_EXISTING,FILE_FLAG_BACKUP_SEMANTICS,0) hdir=CreateFile(trim(Filedir)//blob(0), SYNCHRONIZE ,FILE_SHARE_READ+FILE_SHARE_WRITE, & 0,OPEN_EXISTING,FILE_FLAG_BACKUP_SEMANTICS,0) filename2="\??\"//STRDISK//":\"//TRIM(STR251) IRET = MultiByteToWideChar(CP_ACP,0,trim(filename2)//blob(0),-1 , path2,SIZEOF(path2) ) !//blob(0) !12 !\1\1.txt IRET = MultiByteToWideChar(CP_ACP,0,trim(string0)//blob(0),-1 , path,SIZEOF(path) ) !//blob(0) !12 !\1\1.txt ierror=getlasterror() string3='ABCDE.txt' string3=adjustl(string3) IRET = MultiByteToWideChar(CP_ACP,0 ,trim(string3)//blob(0),-1 , path3,SIZEOF(path3) ) fdi%RootDirectory=hdir fdi%ReplaceIfExists=1 fdi%FileName=loc(path3) fdi%FileNameLength=sizeof(path3) IERROR=-1 IRET= SetFileInformationByHandle(hFile1 , & 4, & LOC(fdi), & sizeof(fdi) & ); ! FileRenameInfo=4 ! beside me IRET=1 IERROR=GETLASTERROR() ! beside me IERROR=0 flag=CloseHandle(hdir) flag=CloseHandle(hFile1) !======================================== 2) Was Not got also use the function ZwSetInformationFile - is given ierror= #C0000008 -STATUS_INVALID_HANDLE but handle is opened: !my code: ierror=-1 IRET = MultiByteToWideChar(CP_ACP,0,trim(filename1)//blob(0),-1 , path1,SIZEOF(path1) ) !//blob(0) !12 !\1\1.txt US%Buffer = LOC(path1) US%length=2*LEN_TRIM(STRING0) US%MaximumLength = SIZEOF(us) ObjectAttributes%Length = SIZEOF(ObjectAttributes) ObjectAttributes%RootDirectory =0 ObjectAttributes%ObjectName =LOC(us) ObjectAttributes%Attributes=OBJ_KERNEL_HANDLE ! Z'0200' - OBJ_KERNEL_HANDLE !Z'0040' - OBJ_CASE_INSENSITIVE ObjectAttributes%SecurityDescriptor = 0 ObjectAttributes%SecurityQualityOfService = 0 ierror=-1 irethandle =ZwOpenFile(FileHandle,GENERIC_READ + GENERIC_WRITE + SYNCHRONIZE & ,ObjectAttributes,IoStatusBlock,FILE_SHARE_READ+FILE_SHARE_WRITE+FILE_SHARE_DELETE & ,FILE_SYNCHRONOUS_IO_NONALERT) ! here irethandle=0 FileHandle=308 (i.e.>0) ierror=getlasterror() IRET = MultiByteToWideChar(CP_ACP,0,trim("\??\c:\ABCD.txt")//blob(0),-1 , path2,SIZEOF(path2) ) fdizw%RootDirectory=0 fdizw%ReplaceIfExists=1 fdizw%FileName=loc(path2) fdizw%FileNameLength=sizeof(path2) ierror=-1 iret= ZwSetInformationFile( FileHandle,IoStatusBlock ,LOC(fdizw),SIZEOF(fdizw),4) ! here iret=#C0000008 ierror=getlasterror() ! here beside me ierror=0 iret=closehandle(FileHandle) ierror=getlasterror() !--------------------------------------------------------- !Tried to use instead of ZwOpenFile function ZwCreateFile: irethandle = ZwCreateFile(FileHandle, GENERIC_WRITE + SYNCHRONIZE+DELETE ,ObjectAttributes & ,IoStatusBlock,NULL, & FILE_ATTRIBUTE_NORMAL,FILE_SHARE_READ+FILE_SHARE_WRITE+FILE_SHARE_DELETE, FILE_OPEN, & FILE_SYNCHRONOUS_IO_NONALERT,0, 0 ) ! here irethandle=#C000000D- STATUS_INVALID_PARAMETER !--------------------------------------------------------- Operating system- Windows Vista. (in XP do not work too,Tried on miscellaneous computer) Anyone can me to help?Time has spent plenty of and do not understand - as possible correct? It Beforehand is much thanked.]]> http://xeffort.com/forum/?webtag=XEFFORT&msg=61.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=59.1 Tue, 27 Oct 2009 16:14:00 UT http://xeffort.com/forum/?webtag=XEFFORT&msg=59.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=59.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=58.1 Thu, 01 Oct 2009 07:24:57 UT http://xeffort.com/forum/?webtag=XEFFORT&msg=58.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=58.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=57.1 Fri, 02 Jan 2009 05:21:08 UT http://xeffort.com/forum/?webtag=XEFFORT&msg=57.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=57.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=56.1 Mon, 28 Jul 2008 21:48:33 UT http://xeffort.com/forum/?webtag=XEFFORT&msg=56.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=56.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=55.1 Wed, 14 May 2008 15:04:23 UT http://xeffort.com/forum/?webtag=XEFFORT&msg=55.1 New b)The "New" dialog should open with the "Projects" tab selected. "Fortran Xeffort Application" should be in the list. If so, select it and fill in a project name, such as "MyTest", and a project location. Click OK and c)The "Fortran Xeffort Application" dialog should appear. Click the dialog application and press Finish. d)A workspace with your project name should appear. Build and execute it. 4) A simple dialog with "TODO" should appear. If you can get to Step 4) then Xeffort is working and your problem is likely a bad USE statement. If not, please tell me which step in the above procedure failed.]]> http://xeffort.com/forum/?webtag=XEFFORT&msg=55.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=54.1 Tue, 13 May 2008 20:00:40 UT http://xeffort.com/forum/?webtag=XEFFORT&msg=54.1 http://xeffort.com/forum/?webtag=XEFFORT&msg=54.1